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ABSTRACT 

We  constructed  an  Intelligent  Computer  Assisted  Instruction  (ICAI)  program  to 
tutor  the  usage  of  the  TOPS20-MM,  an  electronic  mail  facility  available  on  the  Defense 
Data  Network  (DDN).  Learning  by  experience  is  one  of  the  best  ways  to  learn 
something.  The  main  strategy  of  tutoring  in  this  thesis  was  to  provide  an  environment 
simulating  the  actual  facility  that  guides  the  student  while  he/she  tries  to  perform  given 
tasks.  Means-ends  analysis,  a  classic  technique  for  solving  search  problems  in  Artificial 
Intelligence,  has  been  used  to  figure  out  the  right  command  to  perform  a  given  task. 
Basic  commands,  e.g.  a  command  for  viewing  a  message  number  7,  will  be  taught  first, 
then  the  tasks  like  "Send  a  message  to  the  people  mentioned  in  message  number  3"  will 
be  issued. 
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I.  INTRODUCTION 

This  thesis  built  a  tutor  to  teach  an  electronic  mail  facility  called  "TOPS20-MM". 
The  computer  serves  as  a  nice  tool  to  do  this.  Learning  by  experience  is  one  of  the  best 
ways  to  learn  something.  This  thesis  provides  a  simulation  of  the  MM  facility 
environment  and  the  student  learns  by  trying  to  perform  given  tasks  with  it.  TOPS20- 
MM,  which  we  have  chosen  to  teach,  is  the  most-used  service  on  the  Defense  Data 
Network(DDN).  The  DDN  and  the  TOPS20-MM  are  discussed  briefly  in  chapter  3. 

Computer-Assisted  Instruction(CAI)  programs  try  to  encourage  and  control  learning 
while  the  student  is  involved  in  some  activity.  Artificial  intelligence  in  computer-based 
instructional  applications  provides  a  new  kind  of  learning  environment.  Some  of  the 
important  applications  of  artificial-intelligence-based  teaching  are  discussed  in  chapter  2. 

The  strategy  we  have  used  for  teaching  is:  (1)  issue  a  task  or  an  exercise  to  the 
student;  (2)  monitor  the  student's  actions;  (3)  compare  the  command  issued  by  the 
student  with  the  correct  command;  (4)  either  perform  the  actual  MM  actions  or  correct 
the  error.  For  the  tutor  to  best  teach  the  student  the  commands  and  procedures  to  use  the 
MM  facility,  it  should  be  able  to  figure  them  out  itself.  To  do  so,  we  have  exploited 
means-ends  analysis,  a  classic  technique  for  solving  search  problems  by  abstraction. 
Means-ends  analysis  tries  to  find  appropriate  operators  to  reach  a  certain  goal  state  from 
a  starting  state  by  using  the  preconditions  and  postconditions  of  each  operator.  In  our 
program,  we  have  determined  preconditions  and  postconditions  of  each  command. 


For  the  tasks  to  be  issued,  we  have  used  a  subskill  lattice.  With  this  idea,  the  basic 
commands  available  in  MM  will  be  taught  first,  then  more  complicated  tasks  which  are 
compositions  of  basic  ones.  The  tutoring  program  is  written  in  PROLOG  and  it  runs  on 
UNIX. 


H.  SURVEY  OF  PREVIOUS  WORK 

A.     INTELLIGENT  TUTORING  SYSTEMS 
1.      Overview 

The  goal  of  computer  aided  instruction  (CAI)  research  is  to  build  instructional 
programs  that  incorporate  well-prepared  course  material  in  lessons  that  are  optimized  for 
each  student  LRef.  1].  In  the  1970's,  course  materials  were  represented  independently  of 
teaching  procedures  by  intelligent  computer-aided  instruction  (ICAI)  programs,  so  that 
problems  and  tutoring  advice  could  be  generated  differently  for  each  student.  In  recent 
years,  researchers  have  concentrated  on  supportive  learning  environments  to  provide 
learning-by-doing,  which  means  a  student  aquires  knowledge  by  solving  real- world 
problems  [Ref.  2].  To  tutor  well,  a  system  has  to  specify  exercises  and  their  answers 
ahead  of  time,  and  must  have  an  ability  to  diagnose  or  model  the  student's  behavior.  It 
must  also  have  tutorial  strategies  that  specify  when  to  interrupt  a  student  and  what  to  say 
then. 

When  CAI  researchers  realized  the  complexity  of  such  a  computer-based  tutor, 
they  began  to  apply  artificial  intelligence  (AI)  techniques.  AI  research  such  as  natural- 
language  understanding,  knowledge  representation,  and  inferencing,  have  been  applied. 
The  main  components  of  an  such  "intelligent  computer-aided  instruction"  (ICAI)  systems 
are  problem-solving  expertise,  what  the  system  tries  to  teach  the  student;  the  student 
model,  what  the  student  does  and  does  not  know;  and  tutoring  strategies,  how  the  system 
presents  material  to  the  student. 


2.      Intelligent  CAI  Systems 

In  this  section  four  intelligent  computer-aided  instruction  (ICAI)  systems 
relevant  to  this  thesis  are  discussed  briefly. 

a.  SOPHIE 

SOPHIE  (a  SOPHisticated  Instructional  Environment)  is  an  ICAI  system 
developed  by  John  Seely  Brown,  Richard  Burton,  and  their  colleagues  at  Bolt  Beranek 
and  Newman,  Inc  [Ref.3:p.247].  It  tries  to  teach  natural  proofs  as  they  are  actually  done 
by  mathematicians  It  is  designed  to  provide  the  student  with  a  learning  environment  in 
which  he/she  acquires  problem-solving  skills  by  making  hypotheses  and  trying  out  ideas. 

SOPHIE  has  modules  for  problem-solving  knowledge,  heuristic  strategies 
to  answer  the  student's  questions,  rules  to  criticize  the  student's  hypotheses,  and  the  rules 
to  suggest  alternative  theories  for  the  current  hypothesis.  In  a  simulated  electronics 
laboratory,  it  teaches  problem-solving  skills.  It  issues  problems  to  the  student  to  find  the 
faults  in  a  malfunctioning  electric  circuit.  After  the  student  measures  the  equipment  and 
proposes  a  solution,  he/she  receives  feedback  as  to  the  logical  validity  of  their  proposed 
solutions.  When  the  student  makes  an  error  in  his/her  logic,  SOPHIE  can  critique  by 
generating  relevant  counterexamples.  The  SOPHIE  system  combines  domain-dependent 
knowledge  and  domain-independent  inferencing  mechanisms  to  answer  questions. 

b.  GUIDON 

GUIDON  was  developed  by  William  J.  Clancey  and  his  colleagues  at 
Stanford  University  [Ref.3:p.267].  It  is  design  to  answer  "how  the  problem-solving  rules 
in  the  MYCIN  consultation  system  can  be  used  by  other  tutoring  programs  in  interaction 
with  a  student?"  and  "what  can  be  done  to  MYCIN  in  oreder  to  make  it  more  effective 
tutorial  program?"  MYCIN  is  a  rule -based  expert  system  that  diagnoses  the  cause  of  the 
infection  using  knowledge  relating  infecting  organisms  with  patient  history  and  test 
results  [Ref.4:p.283. 


GUIDON  uses  the  rules  of  the  MYCIN  consultation  system  as  subject 
material  and  organizes  them  into  procedures.  MYCIN'S  rules  are  not  been  modified,  but 
are  used  to  form  quizzes,  guide  the  dialogue,  summarize  evidence,  and  model  the 
student's  understanding  for  the  tutoring  application.  GUIDON  engages  the  student  in  a 
dialogue  about  a  patient  suspected  of  having  an  infection.  The  student  learns  the  relevant 
clinical  and  laboratory  data  and  how  to  use  it  to  diagnose  the  patient. 

GUIDON  differs  from  other  ICAI  programs  in  its  mixed-initiative 
dialogue,  which  allows  both  tutor  and  student  decide  what  to  do  next.  It  uses  structured 
teaching  interactions  that  record  the  previous  dialogue,  and  it  does  more  than  just 
respond  to  the  student's  last  action.  It  demonstrates  that  by  separating  teaching 
knowledge  from  subject  knowledge,  we  can  treat  the  teaching  knowledge  as  a  rule-based 
system  itself. 

c.      EXCHECK 

EXCHECK  is  an  instructional  system  developed  by  Patrick  Suppes  and 
his  colleagues  at  the  Institute  for  Mathematical  Studies  in  the  Social  Sciences  (IMSSS)  at 
Stanford  University  [Ref.3:p.283].  It  tries  to  teach  natural  proofs  as  they  are  actually 
done  by  mathematicians,  by  checking  student  proofs. 

EXCHECK  has  natural -inference  subroutines  which  allow  it  to  understand 
sketches  of  proofs,  summarize  proofs,  and  explain  set  theory.  These  subroutines  allow 
the  system  to  interact  in  a  natural  style  which  is  similar  to  standard  mathematical 
practice.  With  this  system,  the  student  is  given  lesson  materials  first,  then  exercises 
consisting  of  theorems  are  given  for  him/her  to  prove.  Since  its  inference  procedures 
allow  the  system  to  recognize  the  student's  reasoning  and  track  his/her  solutions, 
EXCHECK  has  similarities  to  SOPHIE. 


d.      The  C  Workshop 

The  C  workshop  is  a  tutorial  program  developed  by  Charles  Pine  at  Word 
Craft  [Ref.  5].  It  teaches  the  C  programming  language  by  providing  a  programming 
environment  and  online  help  facility. 

It  has  a  tutoring  module  called  Soft  Tutor  that  examines  the  workings  of 
the  student's  program.  The  system  presents  example  programs,  and  the  student  modifies 
them  to  obtain  his/her  own  programs.  The  Soft  Tutor  gives  immediate  feedback  by  error 
messages.  It  uses  an  actual  C  compiler  to  teach  the  C  language  since  its  problem  domain 
is  a  computer  system.  It  provides  an  working  environment,  but  it  lacks  much  interactive 
ability. 


EI.  Description  of  the  Application 

A.  About  DDN 

The  Defense  Data  Network  (DDN)  is  a  large  common-user  data  communications 
network  operated  for  the  Department  of  Defense  (DoD)  by  the  Defense  Data  Network 
Program  Management  Office  (DDN  PMO)  of  the  Defense  Communications  Agency 
(DCA).  Mail  services  let  users  send  messages  electronically  to  one  another.  They  have 
these  features: 

1.  Reading  messages:  select  and  view  specific  messages. 

2.  Printing,  deleting,  or  moving  messages:  print  messages  on  the  printer,  move  them 
into  files,  or  delete  them. 

3.  Sending  messages:  send  messages  to  other  users;  you  must  know  the  network 
mailbox  or  "address"  of  the  addressee. 

In  this  thesis,  I'll  concentrate  on  the  "TOPS20  MM"  mail  service. 

B.  About  TOPS20-MM 

MM  is  a  sophisticated  program  used  to  create  and  manipulate  messages  [Ref.  6]. 
MM  has  three  levels:  the  TOPS20  executive  level  which  displays  "@"  prompt  on  the 
screen;  the  main  executive  level  of  MM  that  displays  "MM>"  prompt;  and  the  sub-modes 
that  can  be  entered  from  MM  level. 

The  top  level  is  the  initial  and  main  command  level.  Here  most  of  MM's  power  is 
available  through  a  variety  of  commands.  Available  commands  and  their  functions  are  as 
follows: 

ALIAS:  allows  you  to  use  MM  as  the  given  user. 

ANSWER:  allows  you  to  respond  a  selected  message  individually. 


APPEND:  concatenates  selected  messages  into  one. 

BBOARD:  allows  you  to  select  a  file  name  from  a  list  of  names  for  MM  to  work. 

BLANK:  clears  the  screen. 

BUG:  allows  you  to  report  or  send  suggestions  to  the  MM  maintainer. 

CHECK:  shows  header-lines  of  newly  arrived  messages  if  any. 

CONTINUE:  resumes  the  last  SEND,  if  it  was  aborted. 

COPY:  copies  selected  messages  to  the  given  file  name. 

COUNT:  gives  the  number  of  the  required  messages. 

CREATE-INTT:  makes  a  new  version  of  MM.INTT  in  your  login  directory. 

DAYTIME:  gives  you  the  current  date  and  time. 

DELETE:  sets  the  delete  bit  to  the  selected  messages. 

DISABLE:  makes  the  current  message  into  read-only  mode. 

ECHO:  shows  a  text  string  you  type  on  the  terminal. 

EDIT:  allows  you  to  edit  selected  messages  with  the  editor. 

ENABLE:  makes  the  current  message  into  read-write  mode. 

EXAMINE:  sets  read-only  mode  to  allow  you  to  select  a  message  for  MM  to  work. 

EXIT:  halts  MM  after  removing  all  the  deleted  messages  in  the  mail  file. 

EXPUNGE:  just  removes  all  the  deleted  messages  in  the  mail  file. 

FILE-LIST:  shows  an  index  of  header  lines. 

FLAG:  just  sets  the  flag  bit  of  selected  messages. 

FORWARD:  allows  you  to  send  selected  messages  with  your  comments. 

FROM:  allows  you  to  specify  the  address  field  with  other  commands. 

GET:  allows  you  to  specify  the  mail  file  for  MM  to  work  with. 

HEADERS:  shows  the  header  line  of  messages  you  selected. 

HELP:  shows  a  definition  of  the  following  command. 

JUMP:  changes  the  current  message  to  be  the  following  number. 
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LIST:  shows  an  index  of  header  lines  and  then  prints  the  selected  messages. 

LITERAL-TYPE:   shows  the  selected  messages  without  regard  to  the  variables 
only-type-headers  and  dont-type-headers. 

LOGOUT:  expunges  the  mail  file,  and  logs  you  out  of  the  system. 

MARK:  sets  the  seen  bit  of  selected  messages. 

MOVE:  copies  selected  messages  to  the  end  of  given  file  and  sets  a  delete  bit  to  the 
selected  messages. 

NET -MAIL:  tries  to  send  queued  mail,  if  any. 

NEXT:  types  the  next  message  if  undeleted,  and  makes  it  the  current  message. 

PREVIOUS:  types  the  previous  message  if  undeleted,  and  makes  it  the  current 
message. 

PROFILE:  allows  you  to  establish  values  for  a  basic  set  of  variables  to  adjust  MM's 
environment  to  your  preference. 

PUSH:  gives  you  a  fresh  EXEC  after  placing  the  current  job  in  an  inferior  fork. 

QUIT:  halts  MM  without  removing  deleted  messages  in  the  current  mail  file. 

READ:  allows  you  to  enter  READ  mode. 

REMAIL:  allows  you  to  resend  selected  messages  without  comments. 

REPLY:  allows  you  to  respond  each  selected  message  individually. 

REPLY-TO:  adds  the  address  to  the  "Reply-To:"  field  for  all  outgoing  messages. 

RESTORE-DRAFT:  enters  SEND-mode  with  resetting  the  outgoing  message  fields 
to  the  values  of  the  message  draft  saved  in  the  given  file. 

SEND:  allows  you  to  enter  SEND-mode. 

SET:  allows  you  to  change  the  value  of  the  selected  variable  for  this  session. 

SHOW:  shows  the  current  MM  variable  settings. 

SORT:  reorders  the  selected  messages  chronologically  by  date  of  composition. 

STATUS:  tells  you  relevant  information  and  statistics  of  the  current  mail  file. 

SYSTEM-MSGS:  is  the  same  as  GET  SYSTEM:MAIL.TXT.l 

TAKE:  allows  you  to  change  the  input  source  from  the  terminal  to  the  file. 


TYPE:  shows  the  selected  messages,  considering  the  variables  only-type-headers, 
and  dont -type -headers  and  sets  the  seen  bit. 

UNANSWER:  removes  the  ANSWER  bit  from  the  selected  messages. 

UNDELETE:  removes  the  DELETE  bit  from  the  selected  messages. 

UNFLAG:  removes  the  FLAG  bit  from  the  selected  messages. 

UNKEYWORDS:  removes  the  given  keyflag  and  keywords  from  the  "Keywords:" 
field  of  selected  messages. 

UNMARK:  removes  the  SEEN  bit  from  selected  messages. 

VERSION:  gives  the  version  number  and  configuration  of  MM. 
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IV.  Implementation  of  the  Tutor 

A.  Data  Structures  and  the  System  Environment 

This  program  has  been  developed  on  VAX  11/785  running  the  UNIX  Operating 
System.  It  is  written  in  C-Prolog,  a  Prolog  interpreter  written  in  C  for  32  bit  machines. 

The  program  uses  code  for  means-ends  analysis  written  by  Prof.  Rowe  [Ref.  1]. 
Means-ends  analysis  tries  to  find  a  path  from  a  starting  state  to  a  goal  state,  representing 
it  by  a  sequence  of  operators.  In  our  program,  operators  are  the  available  commands  in 
each  mode.  To  reach  the  goal  states,  recommended  operators  are  specified  and 
preconditions  are  specified  for  each  operator.  Also,  deletepostconditions  and 
addpostconditions  are  defined  for  each  operators.  Lists  hold  the  sequence  of  operators  to 
be  issued  to  perform  a  given  task.  Lists  also  represent  preconditions  and  postconditions 
for  each  operator,  the  starting  state,  and  the  goal  state. 

B.  Structure  of  die  program 

The  program  is  divided  into  three  modules.  The  problem  domain  module  defines 
the  tasks  issued  to  the  student  to  teach  the  TOPS20-MM  facility.  The  tutor  module 
implements  various  tutoring  strategies.  The  TOPS20-MM  module  simulates  the  actual 
TOPS20-MM  environment. 

1.      Problem  Domain  Module 

Student  tasks  are  divided  into  two  groups:  basic  and  advanced.    Basic  tasks 
teach  the  concept  of  domain  levels  and  single  basic  commands  in  each  level.    The 
commands  we  chose  are  a  subset  of  the  commands  described  in  previous  chapter: 
to  teach  answer,  copy,  delete,  exit,  expunge,  flag,  forward, 
headers  all,  headers  answer,  headers  current,  headers  delete, 
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headers  flag,  headers  unseen,  help,  jump,  list,  logout,  move, 
next,  previous,  quit,  read,  send,  type,  undelete,  and  unflag. 
2.      Tutor  Module 

The  tutor  issues  tasks  to  the  student  and  monitors  the  actions  performed.  Most 
of  its  code  was  written  by  Prof.  Rowe.  It  contains  an  inference  engine  for  means-ends 
analysis,  tutoring  strategies,  an  interface,  a  help  facility,  and  utilities.  The  tutor  issues  a 
task,  compares  the  student's  answer  with  the  correct  command  figured  out  by  the 
inference  module,  and  gives  the  student  appropriate  assistance  and  corrects  any  errors. 
The  tutor  interacts  with  the  student  via  the  interface  module  and  provides  help  with  the 
help  facility  module.  It  executes  commands  the  student  types  in  by  invoking  the 
TOPS20-MM  module,  if  it  is  a  correct  command. 

For  example,  in  order  to  send  a  message,  a  user  must  type  the  command  "send" 
to  enter  the  SEND  mode  from  MM  or  READ  mode;  "send"  is  thus  an  operator.  Means- 
ends  analysis  requires  clear  definitions  of  the  preconditions  and  postconditions  for  each 
operator.  In  this  case,  the  precondition  can  be  expressed  by: 

precondition(cornmand(mm,send),[level(mrn)]) 
where  the  second  argument  is  the  precondition  that  the  current  level  must  be  MM.  After 
an  operator  has  been  applied,  it  must  delete  previous  conditions  which  are  no  longer  true 
and  add  new  conditions  that  became  true.  These  can  be  represented  by: 
deletepostcondition(command(mm,send),[level(mm)]) 

and 
addpostcondition(command(mm,send),[level(send),issued_command(mm,send)]), 
respectively.    The  recommended  operator  to  reach  a  goal  state  is  represented  by: 
predicate  "recommended"  as  in 

reconunended([leveI(send)],command(mm,send)) 
which  can  be  read  as  "In  order  to  reach  the  state  where  the  current  level  is  SEND,  try  to 
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issue  a  send  command  from  the  MM  level."  Means -ends  analysis  figures  out  the  required 
sequence  of  operators  to  accomplish  a  task  by  using  these  conditions. 

After  issuing  the  task  and  receiving  a  command  from  the  student,  the  tutor  uses 
some  of  the  teaching  strategy  rules  in  metutor9  module  written  by  Prof.  Rowe  to  decide 
what  actions  to  take  according  to  the  student's  input,  plus  some  code  of  my  own.  If  the 
received  command  was  invalid,  the  tutor  checks  for  minor  errors  such  as  mistyping  or 
transposition  of  characters  in  a  command.  It  infers  the  correct  command  if  it  recognizes 
one  difference  in  character  string  of  the  received  command  from  a  valid  one,  if  by 
changing  the  positions  of  two  adjacent  characters  in  the  string;  then  it  will  ask  the  student 
if  it  can  correct  the  command. 

A  subroutine  called  "niceread"  has  been  written  by  Prof.  Rowe  to  make  input 
and  output  process  a  little  easier.  The  tutor  will  recognize  input  when  the  user  hits  the 
return  key  without  an  extra  period.  When  the  tutor  must  talk  to  the  student  while  he/she 
is  inside  the  environment  of  the  TOPS20-MM,  the  words  are  preceded  by  "TUTOR:" 

A  help  facility  can  show  the  available  commands  at  each  level  and  explain  the 
functions  of  each  command,  when  requested  by  the  student  typing  "?"  or  "help".   The 
student  can  also  review  the  task  by  typing  "task". 
3.      TOPS20-MM  Module 

When  the  student  types  a  correct  command,  the  tutor  passes  it  and  the  current 
level  to  the  TOPS20-MM  module  for  execution.  For  example,  after  a  "send"  command, 
it  executes  the  action  rule  whose  left  hand  side  is  action(mm,send)  and  performs  the 
function  of  the  command.  It  then  enters  the  "To:"  level  and  waits  for  the  address  of  the 
receiver. 

Our  program  differs  from  the  actual  TOPS20-MM  in  the  usage  of  the  escape 
character.    MM  allows  the  student  to  abbreviate  a  command  by  typing  two  or  three 
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characters  followed  by  an  escape  character,  but  it  was  hard  to  implement  and  was 
discarded  from  this  module.  Instead,  the  exact  commands  were  required  to  execute  the 
system. 


14 


V.  CONCLUSIONS 

We  built  a  computer  tutor  to  teach  part  of  MM.  We  showed  it  was  possible  to 
provided  an  efficient  working  environment  for  a  student  to  learn  the  usage  of  MM  by 
issuing  the  commands  and  seeing  results.  Since  the  time  was  limited,  only  a  part  of  MM 
was  addressed. 

"Is  it  cost  effective?"  is  an  important  question  when  developing  an  ICAI  system. 
TOPS20-MM  is  the  most-used  service  provided  in  the  Defense  Data  Network.  Since 
teaching  TOPS20-MM  isn't  complex,  a  computer  tutor  can  save  much  time  and  effort  of 
a  teacher  as  well  as  a  student. 

The  program  didn't  cover  all  of  MM,  but  it  demonstrated  that  artificial  intelligence 
can  be  added  to  computer  aided-instruction  to  provide  a  better  system.  It  could  correct 
typing  errors  and  misconceptions  in  level,  precondition  violations,  and  other  more  subtle 
errors.  The  program  could  be  improved  by  providing  a  complete  simulation  of  MM,  and 
more  tutoring  strategies,  and  computer  graphics. 
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APPENDIX  A  -  DEMONSTRATION 


Tutor:  Hi,  what  is  your  name?   Kim 
Tutor:  Nice  to  meet  you,  Kim. 

Welcome  to  TOPS20  Mvl  Se 1 f - learni ng  course 
Type  "?"  for  the  available  cormiands 
or  "?  task"  for  the  current  task. 


Tutor:  We  are  now  at  the  top  level  mode. 

Your  fisrt  exercise  is  to  invoke  the  MV1. 

%im 

A. ISI.EDU. #Internet  MA-  20  6.1(1145) 

Last  read:   5-Jun-88   11:15:20  12  messages,  40  pages 
3  messages  unseen;  2  deleted 

Exercise  #10 
Delete  this  file 
Task  #12 


Tutor:  Good.  Now,  we  are  at  the  MA  mode  . 

Lets  browse  the  headers  of  the  current  message  in  the  mail  box 

Mvt>  ? 

Following  are  the  possible  cormiands  at  irm  level: 


u 

10 

5-Jul 

Tut  or 

u 

11 

7-Jul 

Tutor 

u 

12 

10-Jul 

Gen.  X 

answe  r 

heade  rs 

all 

list 

send 

copy 

header  s 

current 

logou  t 

type 

delete 

headers 

delete 

move 

unde  le  t  e 

exi  t 

header  s 

flag 

next 

unf 1 ag 

expunge 

heade  r  s 

unseen 

previous 

flag 

help 

qui  t 

f  o  rwa  r  d 

jump 

read 

MA>    headres  current 

Ooops !  You  mean  "headers  current"?   yes 

U        12     10-Jul     Gen.  X         Task  #12 


Tutor:  O.K. 

Lets  browse  the  content  of  the  current  message 


MA>    t  ype 


Me  s  sage  1 2 
Mail_From:  Gen.  X 
Da  t  e  : 
Sub j  ec  t  :  Task  #12 
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To  :  Kim 

Th  is  is  the  content  of  me  s  s  a  g  e  n  umb  e  r  12. 

Since  you  have  seen  this  message,  the  unseen  flag  will  be  removed. 

Tutor:  Now,  go  back  to  the  top  level  again. 
NM>  qu  i  t 

Tutor:  All  right.  We  came  back  to  the  TOP  level. 

Now,  lets  browse  all  the  headers  of  messages  in  the  mail  box. 

%heade  r  s  all 

Ooops  !  You  can  issue  a  "headers  all"  corrmand  only  in  the  "NM"  level 

Try  again. 

%nn 

A.ISI.EDU.#Internet  NM-20  6.1(1145) 

Last  read:   5-Jun-88   11:15:20  12  messages,  40  pages 
2  messages  unseen;  2  deleted 

Exe  re  i  se  #10 
Delete  this  file 


NM>  headers  all 


u 

10 

5-Jul 

Tu  t  or 

u 

11 

7-Jul 

Tut  or 

FLAG 

NIMBER 

DATE 

AUTHOR 

SUBJECT 

1 

25-Jun 

Tu  t  or 

Exe  re  i  se  #1 

2 

27-Jun 

Gen  .  X 

Task  #2 

D 

3 

28-Jun 

Tu  t  or 

Ga  rbage 

A 

4 

29-Jun 

Gen  .  Z 

Reply  Needed 

F 

5 

30-Jun 

Tu  t  or 

Spec  i  a  1  Not  e 

6 

1-Jul 

Tu  tor 

Exe  re  i  se  #6 

A 

7 

30-Jun 

Gen  .  Z 

Repl y  Needed 

D 

8 

3 -Jul 

Somebody 

Another  Garbage 

F 

9 

5-Jul 

Gen  .  S 

Another  Special  Note 

U 

10 

5-Jul 

Tu  t  or 

Exercise  #10 

U 

11 

7-Jul 

Tutor 

Delete  this  file 

12 

10-Jul 

Gen  .  X 

Task  #12 

Tutor:  Now,  list  all  the  headers  of  flagged  messages  in  the  mail  box 

rVM>  jeaders  flag 

Ooops!  You  mean  "headers  flag"?   y 


FLAG  NUvCER  DATE      AUTHOR        SUBJECT 

F      5     30-Jun     Tutor  Special  Note 

F      9      5-Jul     Gen.  S         Another  Special  Note 
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Tutor:  Good.  Now,  set  the  flag  on  the   message  number  12. 

MVt>  f  1  ag 

Message  number  to  be  flagged?  12 

Tutor:  O.K.  Now,  list  all  the  headers  of  flagged  messages  again. 

rVM>  headers  flag 

FLAG  NUMBER  DATE  AUTHOR  SUBJECT 

F      5  30-Jun  Tutor  Special  Note 

F      9      5-Jul  Gen.  S  Another  Special  Note 

F     12  10-Jul  Gen.  X  Task  #12 

Tutor:  List  all  the  headers  of  the  unseen  messages  in  the  mail  box 

MVt>  headers  unseen 

FLAG  NUMBER  DATE      AUTHOR        SUBJECT 

U        10      5-Jul     Tutor  Exercise  #10 

U        11      7-Jul     Tutor  Delete  this  file 

Tutor:  All  right. 

Now,  lets  browse  the  message  number  10. 

MVfc>  type  10 

Me  s  sage  10 

Mail_From:  Tutor 

Da  t  e  : 

Subject:  Exercise  #10 

To :  Kim 

This  is  the  content  of  message  number  10. 
Tutor:  Now,  jump  to  the  message  number  7  in  the  mail  box. 
MVf>  j  ump  7 


Tutor:  All  right. 

Now,  lets  browse  the  current  message  in  the  mail  box  again 

MVt>  t  ype 


Mes  sage  7 
Mail_From:  Gen.  Z 
Dat  e  : 

Subject:  Reply  Needed 
To:  Kim 
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This  is  the  content  of  message  number  7. 


Tu  tor:  Good . 

Now,  browse  the  next  message  in  the  mail  box 

MVt>  next 


Me  s  sage  8 

MaiI_From:  Somebody 

Da  t  e  : 

Subject:  Another  Garbage 

To :  Kim 

This  is  the  content  of  message  number  8 


Tutor:  Now,  browse  the  previous  message  in  the  mail  box. 

MVfc>  previuos 

Ooops!  You  mean  "previous"?   y 

Me  s  s  age  7 
Mail_From:  Gen.  Z 
Da  t  e  : 

Subject:  Reply  Needed 
To  :  Kim 

This  is  the  content  of  message  number  7. 

Tutor:  Good.  Now,  send  a  message  to  ?@SRI-KL. 

Tutor:  Now,  browse  the  previous  message  in  the  mail  box 
Mvfc>  prev  ious 


Mes  sage  11 

Mail_From:  Tutor 

Da  te  : 

Subject:  Delete  this  file 

To  :  Kim 

This  is  the  content  of  message  number  11 


Tutor:  Good.  Now,  send  a  message  to  J<5)SRI-KL. 

Mvfc>  send 
To:  X3SRI-KL 
Cc  :  yee , 1 i  ang 
Subj :  Good  news 
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Message  (end  with  ESCAPE  or  CTRL-D  or  CTRL-Z) :  This  is  my  first  message 
S>send 


Tut  or :  Exe 1 1  en  t  . 

Now,  send  a  message  to  the  address  in  message  6 


MVt>  type  6 


Mes  sage  6 
Mail_From:  Tutor 
Da  t  e  : 

Subject:  Exercise  #6 
To :  Kim 

Send  a  message  to  GHgNPS . ARPA . 

MVf>  send 

To:  GtfSNPX.ARPA 

Cc  :  me  t  i  n 

Sub j  :  Ta  sk 

Message  (end  with  ESCAPE  or  CTRL-D  or  CTRL-Z):  I  got  it,  sir 

S>send 
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APPENDIX  B  -  SOURCE  PROGRAMS 


I*  *l 

I*  Module  Name:  TOPS20-MV1            */ 

/*  */ 

I*  Author:  Capt.Taewoo  Kim,  ROKA     */ 

/*  */ 

;»«*******»»*»********♦*«.*****»*»*»*  +  **/ 

/*  TOP   commands.  */ 

ac t i on ( t op , he  1 p )  :-  re spond_he 1 p( t op ) . 
ac t i on( t op  ,  ?  )  :-  re spond_he lp( t op ) . 
ac t ion( t op , 1 ogou t )  :-  halt. 

/*  t  opac  t  i  on  (  'inn'  )  */ 

ac  t  i  on(  t  op  .mm)  :-  change_leve  1  (nun)  , 
da  t  e (Da  t  e )  , t  ime (Time ) , 

coun  t up_mes  sages (me  ssage(X,A,B,C,D,E)  ,M) , 
coun  t up_unseen(mes  sage(u ,A,B,C.D,E) ,U) , 
countup_delet  ed(me  ssage(d,A,B,C,D,E) ,Del ) , 
nl ,wri te( "A. ISI.EDU. #Internet  Mvl-20  6.1(1145)'),  nl, 
wr  i t e ( '  Last  read:  ' ) ,wr i t e(Da t e )  ,wr i t e(Time )  ,wr i t e(M) 
write('  messages, '),write( '  40  pages   '),  nl, 
wr i t e (U) ,wr i t e (   messages  unseen;    ) ,wr i t e (De 1 ) , 
wr  i t e ( '  de 1 e t ed '  )  , nl  , nl , 
heade  r  s_unseen . 

heade r s_unseen  :- 

message(u,A.B,C.D,E) ,  wr i t e_body (A.B ,C,D,E) ,  fail, 
header  s_un  seen . 

date('  5-Jun-88  '). 
t  ime(  '  11  :  15 :20  '  ) . 

action(X, trace)  :-  trace. 

ac t i on( t op ,X)  :-  check_e rror ( t op ,X) . 


I*   Mvl  level  corrmands.  */ 

/*  imiaction(  'answer'  )  */ 

ac  t  ion(rmi,  answe  r  )  :-  re  spond_answer  . 

/*  mmac t ion( ' copy ' )  */ 

ac  t  i  on(rrm,  copy  )  :-  re  spond_copy  . 

/*  rrmac  t  ion(  '  de  1  e  t  e  '  )  */ 
ac  t  i  on(imi,  de  1  e  t  e  )  :-  nl, 

write(  'Message  number  to  be  deleted?  '  )  , n ice read(Num)  ,nl 

conver  t (Num, In  t ) , 

message(X.A,Int ,C.D,E) .retract  (me  ssage(X,A,Int  ,C,D,E) ) , 

as se r t a (me  s sage (d , '  D   '  , In t ,C,D,E) ) ,nl , sor t _me s sage s . 

/*  rrmac  t  ion(  '  exi  t  '  )    */ 

act ion(nm,exit )     :-    e rase_de 1 e t ed. 

/*  nmac t ion( ' expunge  '  )    */ 
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ac  t  ion(rrm, expunge  )  :-  er  ase_de  le  ted  . 

era se_de le t ed  :-  n 1 , re t rac t (me  s sage ( d ,A,B,C,D,E) ) , f a i 1 . 
era  se_de 1 e  t  ed . 

/*  mmac t ion( ' f 1 ag ' )  */ 
ac t i on(mm, f 1 ag )  :-  nl, 

wr  i t e (  'Message  number  to  be  flagged?  ' ) , n i ceread(Num)  ,  n  1  , 

conve  r  t (Num,  In  t  )  , 

message(X,A,Int ,C,D,E) .retract (message (X, A, Int ,C.D,E) ) , 

assert  a  (me  ssage(f,'    F',Int,C,D,E)),nl,sor  t_mes  sages . 

/*  mmac t ion( ' forward ' )  */ 
ac t i on(mm, f orwa  rd )  :-  nl, 

wr i t e (  'Message  number  to  be  forwarded?  '), 

nice  re ad (Num)  ,nl , con vert (Num,  In t  )  , 

message(X,A, Int ,C,D,E) , 

asserta( fme  s  sage(X, '    F',Int,C,D,E)),nl. 

/*  mmac  t  ion  ('  lie  a  de  r  s  all')  *  / 
ac  t  ion(imi,  '  heade  r  s  all')  :- 

write_title,  headers_all. 
header  s_a 11  :  - 

message(X,A,B,C,D,E) , 

((X  =  0,  B  <  10,  write('  '),  write(B),  tab(4),  write(C),  tab(4) 

write(D),  tab(4),  wr i t e (E) , t ab(4  )  , nl  ) ; 
(X  =  0,  B  >  9,  wri te_body(A,B,C,D,E) ; 
(X=a:X=d;X=f ;X=u) ,  wr i t e_body (A,B,C,D,E) ) ) ,  fail, 
header  s_a 1 1 . 

/*  mmac t ion (' heade r s  answer')  */ 
ac t i on (mm,  ' heade r s  answer')  :- 

write_title,  header s_answer . 
heade r s_answe r  :- 

message(a,A,B,C,D,E) ,  wr  i t e_body (A,B,C,D,E) ,  fail, 
header  s_answe  r . 

/*  mmac t ion (' heade r s  current')  */ 

ac  t  ion(irm,  '  heade  r  s  current')  :-  cur  ren  t_msg(CM>})  , 
message(X,A,CMN,C,D,E)  ,  wri  t  e_body  (A,CMS,C,D,E)  . 

/*  mmac t i on( ' heade r s  delete')  */ 
ac t ion(mm, ' heade rs  delete')  :- 

write_title,  he ade r s_de 1 e t e . 
header  s_de 1 e  t  e  :  - 

message(d,A,B,C,D,E) ,  wr i t e_body (A,B,C,D,E) ,  fail, 
heade  r  s_de 1 e  t  e . 

/*  mmac t i on( ' header s  flag')  */ 
act ion(nm, 'headers  flag')  :- 

write_title,  heade r s_f 1 ag . 
heade  r  s_f 1 ag  : - 

message( f ,A,B,C,D,E) ,  wr i t e_body (A,B,C,D,E) ,  fail, 
heade  r  s_f 1 ag . 

/*  nrnacl  ion(  'headers  unseen')  */ 
act  ion(rmi,  'headers  unseen')  :- 

write_title,  heade r s_unseen . 
heade r s_un seen  :- 

message(u ,A,B,C,D,E) ,  wr i t e_body (A.B ,C,D,E) ,  fail. 
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heade  r  s_unseen . 

wr  i  t  e_t  i  t 1 e  : -  n 1  , 

wri te( "FLAG  NUMBER  DATE      AUTHOR        SUBJECT),  nl. 

wri te_body(A,B.C,D.E)  :- 

wri  te(A) , tab(4) ,  wr  i  t e (B) , t ab(4 ) , 

wri  te(C) , tab(4) ,  wr i  t e(D) , t ab(4 ) ,wr i  t e(E) ,nl . 

/*  rrmac  t  ion(  '  he  Ip  '  )  */ 

ac  t  i  on  (rrm,  he  lp  )  :-  respond_he  Ip(rrm)  . 

action(mm,?)  :-  re spond_he lp(irm) . 

ac  t  i  on(Leve  1  .He  lp)     :-     1  ong_he  Ip_corrmand(He  1  p  .Command  )  , 
gi ve_def (Leve 1 .Command) . 

/*   rrmac  t  ion(  '  j  ump  '  )    */ 

ac  t  i  on(mm.  JC)     :-    I ong_j ump_command( JC.NM)  , 

NM  >    1  ,    Ntf  <    13,     !  , 

cur  r en  t_msg(CM)  ,  retract(curren  t_msg(CM)  )  , 

assert  a  (cur  ren  t_msg(NM)  )  . 

ac  t  ion(mm.  JC)     :-    long_  j  ump_corrmand(  JC.NM)  , 

wr i t e ( 'Me s s age     '),    write(NM),    wri te(  '     does    not    exist.'). 

/*  rrmac  t  ion(  '  1  i  s  t  '  )    */ 

ac  t  i  on(rmi,  1  i  s  t  )     :-    re  spond_l  i  s  t  . 

/*   rrmac  t  i  on(  '  1  ogou  t  '  )    */ 

ac t i on(nm,  1 ogou t )     :-   mmac t i on ( expunge ) ,    halt. 

/*  mmac t i on ( 'move ' )  */ 

ac t ion (mm,  move )  :-  respond_move . 

/*  mmac t ion( ' next  '  )  */ 

ac t i on(mm, nex t )  :-  cur ren t _msg(K)  ,  K  <  12,  re t r ac t ( cur ren t_msg(K)  ) , 

Kp  1  is  K+l,  as se r t a( cur ren t _msg(Kpl ) ) ,  print2(Kpl). 
ac  t  i  on(nm.  nex  t  )  :-  wr  i t e ( 'Me  s sage  currently  ends  at  number  12'). 

/*  mmac t ion( ' previ ous ' )  */ 

ac  t  i  on(nm,previ  ous  )  :-  cur r en t _msg(K) ,  K  >  1,  re t rac t (cu r ren t_msg(K) ) 

Kml  is  K- 1 .  as ser t a( cur ren t_msg(Kml ) ) ,  print2(Kml). 
ac  t  i  on(irm,  nex  t  )  :-  wr  i  t  e  ( 'Me  s  sage  starts  from  number  1'). 

/*  rrmac  t  ion(  '  qui  t  '  )  */ 

ac t ion(mm,  qui t )  :-  change_l eve  1 ( t op) . 

ac t i on(mm,  q )  :-  change_l eve  1 ( t op ) . 

/*  rrmac  t  ion(  '  t  ype  '  )  */ 

ac t i on(mm,  t ype  )  :-  cur ren t_msg(K) ,  print2(K). 

ac t i on(mm.C)  :-  cur ren t_msg(K3  )  ,  re t rac t (cur ren t_msg(K3  )  )  , 

long_type_coirmand(C,K)  ,  as  ser  t  a(  cur  ren  t  _msg(K)  )  ,  print2(K). 

/*  mmac t ion( ' unde 1 e t e  '  )  */ 
ac t i on (mm, unde 1 e t e )  :-  nl, 

wr  i t e (  'Message  number  to  be  undeleted?  '), 

nice  read(Num) ,nl .convert  (Num. In  t  ) , 

message(d,A,Int ,B,D.E) .retract (me s  sage (d, A, In t  ,B,D,E) ) , 

assert  a (me  ssage(0,0,lnt ,B,D,E)) ,nl , 

sort  _me  s  s  a  g  e  s . 
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/*  rtmac  t  ion(  '  unf  1  ag  '  )  */ 
ac  t  ion(nin,  unf  1  ag  )  :-  nl, 

wri te(  'Message  number  to  be  unflagged?  '), 

nice  read(Num)  , nl .convert (Num,  In  t  )  , 

me ssage(f, A, Int. B,D,E), retract  (me  ssage(f,A,Int ,B,D,E) ) 

assert  a  (me  ssage(0,0,Int,B,D,E)),nl, 

sort  _me  s  s  a  g  e  s . 

/*  Check  eror  */ 

action(mm.X)  :-  check_er ror (rrm.X)  . 


/*  Conmands  at  SEND  level  */ 

/*  sendac t ion ( ' di spl ay ' )  */ 

ac t i on( send , di spl ay )  :-  send_di sp 1  ay . 

/*  sendac t i on( ' era se ' )  */ 

ac t ion( send , e rase )  :-  send_erase. 

/*  sendac t i on( ' he Ip ' )  */ 

ac t i on ( send , he  1 p )  :-  r e spond_he lp( send ) . 

ac t i on( send , ? )  :-  respond_he Ip( send ) . 

/*  sendac t i on( ' send ' )  */ 

ac t i on( send , send )  :-  send_send. 

/*  sendac t i on( ' qu i t ' )  */ 
action(send.quit)  :-change_level (mm) . 
ac t i on( send , q)  :-  change_l eve  1 (mm) . 

/*  sendac t i on( ' t ype ' )  */ 

ac t i on( send , t ype )  :-  send_type. 

/  *  Illegal  c  omna  n  d  s  * / 

ac t i on( send ,X)  :-  error(X). 

/*  Print  the  requested  message.  */ 

print2(Num)  :-  me  s  sage  (X,A,Num,C,D,E)  ,  nl  ,  n  1  , 

wr i t e (  'Mes sage  ' ) ,wr  i t e (Num)  , n  1  , 

wr i t e  (  'Ma i l_From:  ' ) ,wr i t e(D) , n 1 , 

write('Date:  ' ) ,nl , 

wr i t e ( ' Subj ec t :  ' ) ,wr i t e (E) , n 1 , 

wr  i  t  e ( ' To :  ' ) , u  s  e  r (Name ) , nwr  i  t  e (Name ) , n 1 , n 1 , 

me  ssage_content (Num, Con  tent ) ,wri  te(Content ) ,nl  , 

check_f lag(Flag,A,Num,C,D,E) , 

sort  _me  s  s  a  g  e  s ,  ! . 

check_f  lag(u,A,Num.C,D,E)  :- 

re  t  r  ac  t  (mes  sage(  u  ,A,Num,C,D,E) )  , 

a  s  s  e  r  t  a  (me  s  s  a  g  e  ( 0  ,  '     '  ,  Num ,  C ,  D ,  E )  )  . 

check_f  lag(X,A,Num,C,D,E)  . 

/*  count  the  number  of  each  messages  */ 

coun  t  up_mes  sages(message(X,A,B,C,D,E)  ,M)  :-  asserta(counter(0)), 

ca 1  1  (me s sage  (X,A,B ,C,D,E) ) ,  counter(K),  re t r ac t (coun t er (K)  ) 
K2  is  K+l,  asserta(counter(K2) ) ,  fail. 
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coun t up_mes sages  (message  (X, A, B,C,D,E)  ,M)  :-  counter(M),  re t rac t ( coun t e r (M)  ) ,  ! 

coun t up_un seentmes sage ( u ,A, B.C. D,E) ,U)  :-  as ser t a( coun t er( 0 ) ) , 

ca 1 1  (me s s age (u ,A,B,C,D,E) ) ,  counter(K),  re t rac t ( coun t e r (K)  )  , 
K2  is  K+l,  asser!a(counter(K2)),  fail. 

coun t up_un seen (me s sage ( u ,A,B,C,D,E) ,U)  :-  counter(U),  re t rac t ( coun t e r (U) ) ,  !  . 

countup_delet  ed(mes  sage(d,A,B.C.D,E),Del)  :-  asserta(counter(0)), 

ca 1 1  (me s sage (d ,A,B,C,D,E) ) ,  counter(K),  re t rac t ( coun t er (K)  ) , 
K2  is  K+l,  asse r t a( coun t er (K2) ) ,  fail. 

coun t up_dele t ed(message(d ,A,B,C,D,E) ,De 1 )  :-  coun t e r (De  1 ) , 

retract(counter(Del)), !. 

/*  C30DES  FOR  SEN)  OP.  */ 

ac t i on (mm,  send )  :-  change_leve 1 ( t o ) . 

action(to.X)  :-  as ser t a( rece i ver (X)  )  ,  !. 

action(cc.X)  :-  as ser t a( ccrece i ve r (X)  )  ,  !. 

ac t i on( sub j ec t ,X)  :-  as ser t a(mes sage_sub j ec t (X) ) ,  !. 

act  ion  (me 8 sage ,X)  :-  asser t a(mes sage(X)  )  ,  !. 

ac t i on( ready_ t o_send . send )  :-  1  as t_sen t_msg(LSM)  , 

cur ren t_da t e (CD) ,  rece i ve r (Rname ) ,  message(M), 

assertz(sent  _me  s  s  a  g  e  (  s  ,  '      '  ,  LSM,  Da  t  e  ,  Rn  ame  ,M)  )  , 

re  t  rac  t  (  1  as  t  _sen  t_msg(LSM)  )  ,  NLSM  is  LSM  +  1, 

assertz( last_sen  t_msg(NLSM) ),   retract(receiver (Rname ) ) , 

ret  ract  (ccreceiver  (CCR)  )  ,  retract  (mes  sage(M)  )  , 

re t rac t (me  s sage_sub j ec t (MS  )  )  ,  !. 

current _date('  14-Apr-88  '). 

/*  sorts  messages  with  message  number  */ 

sor t_mes sages  :-  bagof (N,A"B~C*D*E~me s s age (A.B ,N,C,D, E) ,L) , 
sort(L.SN),  sortl(SN),!. 

sort 1(SN)  : -  f i r s t (SN.F) , mes sage (A.B, F.C.D.E) . re t rac t  (mes sage (A.B, F.C.D.E) ) , 

asser tz(message( A.B, F.C.D.E) ) , de le t e(F,SN,NSN) .sort l(NSN) . 
sort 1(SN) . 

first( [XIL] .X). 

delete(X.  [],[]). 

delete(X. IXIL]  .M)  :-  !,  de 1 e t e (X.L.M)  . 

delete(X.  [YIL]  .  [YIM]  )  :-  dele  t  e  (X.L.M)  . 

/*  read  in  each  character  and  convert  it  into  list  of  ASCII  codes  */ 
/*  until  carriage  return  is  pressed.  */ 

niceread(L)  :-  checkre t rac t ( readbuf f (L2 ) ) ,  asser t a( readbuf f ([])) , 

nice  read2(L) , ! . 
niceread2(L)  :-  getO(C),  niceread3 (C.L) . 

/*  ni ceread3( 32 ,L)  :-  ni ceread2(L) .  <==  ignore  the  spaces.  */ 

niceread3( 10.L)  :-  !,  readbuf f (L2 ) ,  reve r se (L2 ,L) . 
niceread3(C.L)  :-   readbuf f(L3 ) .  re t rac t ( readbuf f(L3 )) , 

asserta(readbuff( [CIL3] ) ) ,  niceread2(L) . 

checkret rac t (S)  :-  call(S),  retract(S),  !. 
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checkre  t  rac  t (S ) 


reverse(L.R)  :-  reve rse2(L, [ ] ,R) . 

reverse2( [ ] ,L,L)  : -  ! . 

reverse2([XIL] ,R,S)  :-  reve rse2(L, [XIR] ,S) 


convert ( [CIT] .Int ) 
convert ( [CIT] , Int ) 
convert ( [CIT] , Int ) 


-  T  =  [],Int  is  C-48. 

-  T  >47.  T  <  58,  Int  is  ( ( (C-48 ) * 10)+(T-48 ) ) . 

-  nwr i t e( [CIT] ) ,wr i t e( '  <==  Invalid  input!'), nl 


/*  code  for  reading  the  message  user  types  in  as  a  list  of  lists.  */ 


read_mes sage (L)  :- 

wr i t e ( 'PI  ease  type  your  message;  terminate  with  a  control-X 


),  nl, 


wr  i  t  e(  ' 

read_mes  sage2(L) . 
read_mes  sage2( [XIL] ) 
read_mes  sage3(X. [ ] ) 
r ead_me  ssage3(X,L) 
t  e  rnn  n  a  t  ion(L)  :  - 
Iast([X],X)  :-  !. 
last([XIL]  ,Y) 


and  a  carriage  return.'),  nl 


-  niceread(X),  read_me ssage3 (X, L) 

t  ermina  t  ion(X) ,  ! . 
readme  ssage2(L) . 


last (L,24) 
last(L.Y) 


/*  write  the  message  list  ==>  each  sublist  as  a  separate  line.  */ 

wr  i  t  erne  ssage([])  :-  !. 

wr i t e_me s sage ( [XI L] )  :-  writel(X),  nl,  wr i t ernes  sage (L) . 

wri  tel( [ ] ) . 

wri tel( [XI  IL1] )  :-  put(Xl),  writel(Ll). 

/*  write  the  list  of  ASCII  code  into  character  string.  */ 

nwr  i  t  e  (  [  ]  )  . 

nwri te( [XIR] )  :-  put(X),  nwrite(R). 


/*  me 
mes  sa 
me  s  s  a 
me  s  s  a 
me  s  sa 
me  s  s  a 
me  s  sa 
me  s  sa 
me  s  s  a 
me  s  sa 
me  s  s  a 
me  s  s  a 
me  s  sa 


s  s  age 
ge(0, 
ge(0, 
ge(d, 
ge(a  , 
ge(f, 
ge(0, 
ge(a, 
ge(d, 
ge(f  , 
ge(u  , 

ge(u. 
ge(u. 


he  ade  r  s 
,  1 
,2 
D 
A 
F 


/ 


D 

U 
U 

u 


,  3 
,4 
,5 
,6 


25- 
27- 
28- 
29- 


Jun 
Jun 
Jun 
Jun 


30-Jun 
1-Jul 


,7, 

30- 

•  Jun 

,8, 

3 

Jul 

,9, 

5- 

Jul 

10, 

5- 

Jul 

11, 

7- 

Jul 

12, 

10 

Jul 

'  Tu  t  o  r 
'Gen .  X 
'  Tu  t  o  r 
'Gen.  Z 
'  Tu  t  o  r 
'  Tu  t  o  r 
'  Ge  n  .  Z 
' Somebody 
'  Ge  n  .  S 
'  Tu  t  o  r 
'  Tu  t  o  r 
'  Ge  n  .  X 


'Exercise  #1'). 
'Task  #2' ). 
'Ga  rbage '  )  . 
'Repl y  Needed ' ) . 
'Spec  i  a  1  No  t  e '  )  . 
'Exe  re  i  se  #6 '  )  . 
'Rep  1 y  Needed ' ) . 
'Another  Garbage'). 
'Another  Special  Note') 
'Exe  rcise  #10'). 
'Delete  this  file'). 
'Task  #12'  ). 


/' 


mes  s 
me  s  s 
me  s  s 
mes  s 
me  s  s 
me  s  s 
mes  s 
me  s  s 
me  s  s 
me  s  s 
me  s  s 


on  t  e 

age_ 

age_ 

age 

age 

age_ 

age_ 

age_ 

age_ 

age_ 

age_ 

age 


nts  of  messages  */ 


con  t  en  t 
con  t  en  t 
con  t  en  t 
con  t  en  t 
con  t  en  t 
con  t  en  t 
con  t  en  t 
content 
con  t  en  t 
con  t  en  t 
con t  en  t 


1,'  This  is  the  content  of  message  number  1. 
2,'  This  is  the  content  of  message  number  2. 
3,'  This  is  the  content  of  message  number  3. 
4,'  This  is  the  content  of  message  number  4. 
5,'  This  is  the  content  of  message  number  5. 
6,'  Send  a  message  to  GK@NPS.ARPA.'). 
7,'  This  is  the  content  of  message  number  7. 
8,'  This  is  the  content  of  message  number  8. 
9,"  This  is  the  content  of  message  number  9. 
10,'  This  is  the  content  of  message  number  10 
11,'  This  is  the  content  of  message  number  11 
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me  s s agecon t en t ( 12, '  This  is  the  content  of  message  number  12. 
Since  you  have  seen  this  message,  the  unseen  flag  will  be  removed.') 

spacel('  '). 

space2( '  ' ) . 

s  p  a  c  e  3  (  '  '  )  . 

space4( '  )  . 
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/*  •/ 

/*    Module  Name:  TUTOR  */ 

I*  *l 

I*        Author:  Prof.  Neil  C.  Rowe        */ 

/*  */ 

/*******♦***++*+***********************/ 

/*  Problem- independent  code  for  "means-ends  tutoring":  tutoring  for  */ 
/*    learning  of  sequences  modelable  by  means-ends  analysis.   */ 

/*  For  an  application,  you  must  define:  */ 

/*  (1)  reconmended(<di  f  f  e  rence>  ,  <ope  ra  t  or>)  -  -  recorrmenda  t  i  on  conditions  */ 

/*  (2)  precondi t i on(<oper a t or> ,<f ac t 1 i s t>)  --precondition  facts  */ 

/*  (3)  de le t epos t condi t i on(<ope ra tor>,<f ac t 1 i s t>)  or  */ 

/*      deletepostcondi  t  ion(<operator>,<condi  t  ionl i  st>,<fact 1 i  st>)  */ 

I*  --gives  facts  deleted  by  op.;  3-arg.  form  requires  additional  facts  true  */ 

/*  (4)  addpos t condi t ion(<opera t or>,<fac t 1 i s t>)  or  */ 

/*      addpos t cond i t ion(<opera t or>,<condi t i on  1 i s t> ,<fac t 1 i s t>)     */ 

/*  --gives  facts  added  by  op.;  3-arg.  form  requires  additional  facts  true  */ 

/*  Some  optional  definitions  you  may  include:                             */ 

/*  (5)  randsubs t (<op .>, [<subs t 1 i s t l>,<subs t 1 i s t2>, . . . ] )  */ 

/*  --gives  random- subs t i t ut ion  triples  or  quadruples,  each  in  the  form:  */ 

/*  [<in i t i a  1  - f ac t>,<ending- f ac t>,<t rans i t ion -prob . >,<me s sage  to  user>  */ 

/*  Note:  first  and  second  arguments  can  be  the  word  "none";    */ 

/*  fourth  argument  is  optional.  */ 

/*  (6)  nopre f (<ope r a t or l>,<ope ra tor2>)  --if  the  order  (priority)  of  two  */ 

/*  operators  in  the  "  recorrmended"  rules  was  arbitrary,  include  this  fact  */ 

/*  (7)  i n t ro(<t ext >)  --introductory  info  for  student  */ 

/*  (8)  debugflag  --if  asserted,  debugging  info  printed  re  means-ends  anal.  */ 

tutor(State.Goal)  :  - 

no t ( check_obv i ous_e rror s ) ,  i s sue_wa  rnings ,  randinit, 

uniqueassert(t  op_goal (Go a  1 ) ) , 

bagof(X,P"precondi  tion(X.P) ,XL) ,  uniqueassert (op_l i  s  t (XL) ) , 

once_means_ends (State, Go a  1 ,Oplist2,Goalstate2) , 

uniqueassert (t  op_sol ution(Statelist)),  aboli  sh(main line_states,4), 

means_ends_tutor(State ,Goa l,Oplist,Goalstate,[]), 

nl  ,  nl  ,  !  . 

tutor(State ,Goal )  :- 

write('Too  bad:  a  solution  is  now  impossible.'),  nl,  !. 

means_ends_t u t or (S t a t e ,Goa 1 , [ ] ,S t a t e ,S t ack )  :-  di f f erence(Goal ,S t a t e , [ ] ) ,  !. 

means_ends_tutor(State ,Goal .Oplist, State, Stack)  :-  member ( [State  ,Goa 1 ] ,S t  ack ) , 
!  ,  fail  . 

means_ends_t  u t  or (S t  a  t e ,Goa  1  ,Opl i  s  t  ,Goa Istate. Stack)  :  - 

not (once_means_ends (S t a t e ,Goa 1 ,Opl i s t ,Goa 1 s t a t e ) ) ,  !,  fail. 

means_ends_tutor(State ,Goa l.Oplist, Go alstate, Stack)  :  - 
d  i  f f e  rence(Goa 1 , St  a  t  e ,D) , 
appl i  cabl e_op(D,Op ) , 
precondi  t  ion (Op , Pre  1 i  s  t )  , 
all_achievable(State,Prelist),  ! , 

means_ends_tutor(State,Prelist .Preopl ist .Prestate, [ [State, Go a  1 ] IStack] ) , 
!  ,  met(State,Goal ,Opl ist , Go alstate, Stack.Prelist  .Pre op  list ,Prestate,Op,D) . 
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met(State,Goal.Preoplist,Prestate,Stack,Prelist,Preoplist,Prestate,Op,D)  :  - 
di  fference( Go  a  1 , P  r estate, []),  !. 

met(State.Goal,Oplist,Goalstate,Stack,Prelist,Preoplist,Prestate,Op,D)  :  - 
di f f e rence (Goal .Pre s t a t e ,D2  ) ,  no t ( appl i cab  1 e_op(D2 ,Op ) ) ,  !, 
means_ends_t  u  t  or (Pres  t  a t  e .Goa 1 ,Opl i  s  t  2  ,Goal s  t  a  t  e ,  [  ] )  , 
append(Preopl ist ,OpI i  s  1 2 ,Opl i  st )  . 

met (St  a  t  e ,Goa 1 ,Opl is  t ,Goa 1 s t at e . S  t  ack .Pre  1 i  s  t , Preopl i s t , Pres  t ate ,Op ,D)  : - 

check_wi  t  h_s  t  uden  t (Op .Pres  t  a  t  e .D.NewOp ) , 

get_deletepostcondi  t  i  on(NewOp  .Prestate.Deletepost  1  i  st  )  , 

del e  t  e  i  t  ems (Deletepost 1 ist .Prestate ,Prestate2) , 

get_addpos  tcondi  t  ion(NewOp .Prestate .Addpos  t 1 i  s  t ) , 

uni  on (Addpos  tlist,Prestate2,Postlist2), 

do_randsubst (NewOp .Postlist2,Postlist), 

check_mainl ine_return(Postlist),  !, 
/*  Note  last  arg.  below  empty  to  allow  for  randsubst  returning  to  past  state  */ 

means_ends_tutor(Postlist .Goal .Postoplist .Goalstate, [] ), 

append(Preopl i  st , [NewOp IPostoplist]  .Oplist ). 

do_intro  :-  intro(T).  write(T),  nl,  !. 
do_i  n  t  ro  . 

/*  Prob 1  em- de f ini t ion  errors  */ 

check_obv i ous_e r ror s  :-  se  t  of  (  [M,  A]  ,  obvi  ou  s_er  ror  (M,  A)  .MAL)  ,  !, 
writepairlist  (MAL )  . 

obvious_error( 'precondition  fact  missing  for  operator  ' .O)  :- 
recorrmended(D.O)  ,  not(precondition(O.L)). 

obv j ou s_e r ror ( ' de 1 e t epos t condi t i on  fact  missing  for  operator  '  ,0)  :- 
r e c onme nded(D.O) ,  not (get_deletepostcondi  t  ion(O.S.L) ) . 

obv i ou s_e r ror (' addpos t cond i t i on  fact  missing  for  operator   .O)  :- 
reconmended(D.O) ,  not (get_addpos  tcondi  t  ion(O.S.L) ) . 

obvi ous_e r ror ('" recommended"  fact  missing  for  operator   .O)  :- 
precondition(O.L),  not( recommended (D.O) ) . 

obvi ou s_er ror ('" reconmended"  fact  missing  for  operator  ' ,0)  :- 
get_deletepostcondition(O.S,L),  not( recommended (D.O) ) . 

obv  i  ous_e  r  ror  ('"  recorrmended"  fact  missing  for  operator  '.O)  :- 
getaddpostcondi  t  ion(O.S.L)  ,  not(  recorrmended  (D.O) )  . 

i  s  sue_wa  rn  i  ngs  :-  se  t  of  (  [M,  A]  ,  pos  s  ibl  e_er  ror  (M.  A)  ,MAL)  ,  !, 

wr i t e (  'Warnings :')  ,  nl,  wr  i t epa i r 1 i s t  (MAL) ,  nl. 
issue  _wa  r  n  i  n  g  s . 

pos s ib I e_e r ror ( 'Th i s  fact  is  not  creatable:  ' ,F)  :-  precondi t i on(O.PL) . 
backtrackin  g_memb  er(F.PL) ,  uncreatable(F) . 

wr  i  t  epa  i  r 1 i  s  t ( [ ] )  . 

wri tepairl i s t ( [ [X.Y] IL] )  :-  wiite(X),  write(Y).  nl.  wr  i t epa i r 1 i s t (L ) . 

/*  Handling  of  randomness  */ 

do_randsubst (O.S.NS)  :-  randsubs t (O.RL) ,  !,  do_r andsubs t 2(RL.S ,NS ) . 
do_randsubst (O.S.S) . 
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do_randsubs t2( [ ] ,S,S) . 

do_randsubst2( [[F,NF,P] IL] ,S,NS)  :-  r andom(  1000 ,K)  .  P1000  is  P*1000, 

K=<P1000,  changestate(F,NF,S,S2) ,  !,  do_randsubs t 2(L,S2 ,NS) . 
do_randsubst2([[F,NF,P,M] IL] .S.NS)  :-  random(  1000.K)  ,  P1000  is  P*1000, 

K=<P1000.  changestate(F,NF,S,S2) ,  !,  wr  i t e (M)  ,  nl,  do_randsubs 1 2(L,S2 ,NS  ) 
do_randsubst2( [CIL] ,S,NS)  :-  do_randsubs t 2(L,S ,NS) . 

changestate(none,NF,S, [NFIS] )  :-  !,  not  (member (NF.S) ) , 

wr i t e( 'Random  change  made:  '),  nl,  !. 
change s t a te (F, none ,S ,S2)  :-  !,  member(F.S), 

wr i t e( 'Random  change  made:  '),  nl ,  !. 
changestate(F,NF,S, [NFIS3] )  :-  ! ,  membe r (F,S ) , 

wr i t e ( 'Random  change  made:   '),  nl,  !. 

permu t a t i on ( [ ] , [ ] )  :-  !. 

perniu  t  at  ion(L,  [I  IPL]  )  :-  r  andi  t  em(L,  I )  ,  de  I  e  t  e(  I  ,L,L2)  ,  permu  t  a  t  ion(L2  ,PL)  . 

randi tem(L, I )  :-  length(L.N),  random(N.K)  ,  item(K,L,I). 

randinit  :-  C  is  cpu t ime* 1000,  FC  is  floor(C),  S  is  FC  mod  2311, 
uniqueassert(randseed(S)). 

random(N.K)  :-  randseed(S),  next rand(S ,NS) ,  K  is  NS  mod  N, 
retract(randseed(S)) ,  asserta(randseed(  NS ) ) . 

next rand(S.NS)  :-  FIC  is  100*cpu t ime ,  IC  is  floor(FIC), 

S2  is  ((S*S)+IC)  mod  2311,  S3  is  (S2*S2)  mod  2311,  NS  is  (S3*S)  mod  2311. 

item(K,  []  .1)     :  -     !  ,     fail  . 

item(K,  [XIL]  ,X)     :-   K=<1  ,     !  . 

item(K,  [XIL]  ,Y)     :-    Krnl    is    K- 1 ,     i  t em(Kml  ,L,Y)  . 

/  *    Tutoring    rules    *  / 

/*    handle_s t uden top    rules    have    been    added    to    the    original    code    */ 

check_wi th_s tudent (O.S.D.NO)     :- 

membe  r ( level (Cur  rent _Leve 1 ) ,S) , 
t  ermprompt (Cu  r  ren t_Leve 1 ,P) ,    wr  i  t e(P) , 

niceread(  LCorrma  n  d  )  ,  n  ame  ( SContna  n  d  ,  LCorrma  n  d  ) 
02    =  .  .     [corrmand  ,Cu  rren  t_Leve  1  .SComnand]  , 
handle_studenl_op(02,0,S,D,NO) ,     ! . 

handle_student_op(0,O.S,D,0)     :-      0=..     [P,CL,03],     !,    ac t ion(CL,03) ,     !. 

handle_student_op(02, O.S.D.NO)  :-  02  =..  [P.CL.C] ,  helpword(C),  !, 
respond_help(CL) ,  !,  check_wi th_s t uden t (O.S ,D.NO) . 

handle_student_op(02, O.S.D.NO)  :-  02  =..  [P,CL,C],  he lp_t ask(C) ,  !. 
check_with_ student (O.S.D.NO) . 

handle_student_op(02,0,S,D,0)  :-  02  =..  [P.L.C] ,  mstop(C),!,  halt. 

handle_student_op(02,0,S,D,0)  :-   02  = . .  [P.L.C],  mabort(C).!,  abort. 

handle_student_op(02, O.S.D.NO)  :-  02  =..  [P.L.C],  mtrace(C),!.  trace, 
check_wi  th_s tudent (O.S.D.NO) . 

handle_student_op(02, O.S.D.NO)  :-  1  eve  1 (Leve 1 ) .  check_er ror (Leve 1 ,02 .NO) , !  . 
check_wi  th_ student (O.S.D.NO) . 
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handle_student_op(02.0,S,D,NO)  :-  op_)ist(OL),  not ( s i ng 1 emembe r (02 ,0L) ) ,  !, 
wr i le( 'Tutor:  Not  a  valid  ope ra t or  - -pi ea se  choose  one  of  the  following:  ') 
level (CL) , 
respond_he lp(CL) ,  check_wi  th_student(0,S ,D,N0) . 

handle_student_op(02,0,S,D,ND)  :-  precondi t ion(02 ,P02) ,  di f f erence(P02  ,S ,D2 ) 
not(D2=[]),  !,  wr  i t e ( 'Tu t or :  That  operator  requires  that  '), 
wr  i t e 1 i s t (D2  .precond)  ,  write('.'),  nl  , 
check_wi  t h_s t uden t (O.S ,D,N0) . 

handle_student_op(02,O,S,D,N0)  :-  app ly_op(02 ,S ,S) , 
wr  i t e (  'Tu t or :  That  will  not  affect  any t h ing .  '  ) , n 1  , 
check_wi  th_student (O.S.D.NO) . 

handle_student_op(02.0,S.D,NO)  :-  appl y_op(02  ,S ,S2) ,  top_goal(G), 
no t ( once_means_ends (S2 ,G,0L2 ,GS2 ) ) ,  ! , 

wri  te(  'Tutor :  You  cannot  ever  succeed  if  you  do  that.'),  nl, 
check_wi  th_st uden t (O.S ,D,NO) . 

handle_s tudent_op(02,0,S,D,02)  :-  top_goal(G),  app I y_op(0,S ,S3 ) , 
apply_op(02  ,S  ,S2  )  ,  compare_solu t ions (S3 ,G,OL3 ,GS3 ,S2 ,G,OL2 ,GS2 ) , 
subsequence! [OIOL3] ,OL2) ,  !,  appl y_ops ( [OIOL3] ,S ,SL,GS4 ) , 
e 1  imdups (SL ,ESL) ,  asserta(mainline_states (ESL.02 , S ,0) ) , 

wr  i t e (  'Tu t or :  That  does  not  seem  immediately  helpful,  but  I  will  try  it.') 
nl,  02  =..  [P,CL,03],  !,  ac t ion(CL,03 ) . 

handle_student_op(02,O.S,D,02)  :-  (nopref (02 .O) : nopref (0,02 ) ) ,  !, 
wri te( 'O.K.  *  ) ,  nl,  02= . . [P,CL,03 ] ,  ac t ion(CL,03 ) . 

handle_s tudent_op(02 .0.S.D.02)  :-  top_goal(G). 

once_mean sends ( S ,G ,OL . FS ) ,  not  (membe r (02 ,OL) ) ,  !, 

wr  i  t  e  ( 'Tu  t  or  :  I  will  try  it.  but  it  is  not  recorrmended  for  the  problem.'), 

nl,  02  =..  [P,CL,03],  !,   ac t ion(CL,03 ) . 

handle_student_op(02.0,S,D,02)  :-  top_goal(G),  di f f erence(G.S ,D2 ) , 
all_achievable(S,D2) ,  appl i  cab le_op(D2 ,03 ) ,  precondi  t  ion (03 ,PL) , 
leas  t_corrmon_op(S  .G.0,02  , PL.Groo t  )  ,  !  , 

wr i t e( 'Tu t or :  I  will  try  it,  but  it  is  not  reconmended  first  when  '), 
difference(Groot ,S ,D5 ),  delete_uncreatable(D5 ,D6 ) , 
pe  rmu t a t i on (D6  .D7  )  ,  wr  i t e 1 i s t (D7  .precond) ,  write('.'),  nl, 
02  =. .  [P.CL.03] .  ! . 
act  ion(CL,03) . 

handle_student_op(02.0.S.D,02)  : - 

wr i t e( 'Tu t or :  Not  the  operator  I  would  choose,  but  let  us  try  it.'),  nl, 
02  =. .  [P.CL.03],  ! , 
act  ion(CL,03) . 

t  ermpromp  t ( t  op , '%'  ) . 

t  e  rmp  r  omp  t  ( nrn ,  '  Mvt>    '  )  . 

t  e  rmp  r  omp  t ( t  o , ' To :     ' ) . 

t  e  rmp  r  omp  t ( c  c , ' Cc :     ' ) . 

t ermp romp t ( sub j ec t , 'Subj :     '). 

t e  rmp romp  t (me s sage ,  'Me  s sage    (end  with    ESCAPE   or    CTRL-D  or    CTRL-Z) :     '). 

t  ermpromp  t ( ready_t  o_send , 'S>'  ) . 

h  e 1 pwo  r  d ( h  e 1 p ) . 
h  e 1 pwo  r  d ( h ) . 
h  e 1 pwo  r  d ( h  u  h ) . 
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h  e 1 pwo  r  d ( ? )  . 
ms  top (halt), 
ms  t  op( 1 ogou  t ) . 
mabor t ( abor  t  ) . 
help_t ask( ' ?task' ) . 
mt  race ( t  race ) . 


/*  Intermediate  predicates  used  by  the  tutor  */ 

leas  t_corrmon_op(S,G.O,02,G2,G)  :-  once_means_ends (S ,G2 ,OL,NS) , 
(not  (member  (O.OL)  )  ;  not  (member  (02  ,OL)  ))  ,  !. 

least_conmon_op(S,G,0,02,G2,Droot )  :-  di f f erence(G2 ,S ,D) ,  al I_achi evabl e(S ,D) 
appl i  cable_op(D,03 ) ,  pr econdi  t  ion (03 ,G3 ) , 
leas  t_conmon_op(S,G2 ,0,02 ,G3 .Droot ) ,  ! . 

compare_solut  i  ons  (S3  ,G,0L3  ,GS3  ,S2  ,G,OL2  ,GS2  )  :- 
once_means_ends(S3 ,G,0L3 ,GS3 ) , 
once_means_ends(S2,G,OL2,GS2) ,  ! . 


cache_states(S,G, [] ,GS) 
cache_states(S,G.OL,GS) 
cache_states(S,G,OL,GS) 

check_pe rmu t a t i on(G,G2) ,  !. 
cache_states(S.G, [OIOL] ,GS)  :-  asser t a(cached(S ,G, [OIOL] ,GS) ) , 

apply_op(O.S,NS) ,    cache_s t a t es (NS ,G,OL,GS) ,     !. 


cached(S,G,OL.GS) ,     !. 

c ached (S2,G2,OL2,GS2) ,    check_permu t a t  ion(S,S2) , 


apply_ops([].S.[S].S)  :-  !. 

apply_ops( [OIOL] |,S, [SISL] ,NS)  :-  appl y_op(0,S ,S2 ) ,  apply_ops (0L.S2 ,SL,NS) . 
apply_op(O.S.NS)  :-  ge t_dele t epos t condi t ion(O.S ,DP) ,  de le t e i t  ems  (DP.S ,S2) , 
get_addpostcondi t ion(0,S,AP) ,  union(AP,S2 ,NS) ,  !. 

check_ma  in  I i ne_re t urn(S )  :-  ma  i n 1 ine_s t a t es (SL ,O.OS ,BO) , 

check_mainl i ne_r e t u rn2(S ,SL ,0,OS ,BO) . 
check_mainl ine_return(S) . 

checkjmainl ine_return2(S,tS2ISL],0,OS,BO)  :-  pe  rmu t emember (S , [S2] ) , 
!,  write('You  are  returning  to  a  previous  state.'),  nl . 

check_mainl ine_re t urn2(S ,SL.O,OS,BO)  :-  permu t emember (S ,SL) ,  !, 
write('Do  you  see  now  that  your  choice  of  the  '),  write(O), 
wr  i t e  (  '  action  in  the  state  with  the  facts  ['),  wr  i t e 1 i s t (OS , s t a t e ) , 
write(  ']  was  not  the  best  choice;  the  '),  write(BO), 
write('  action  would  have  been  better.'),  nl, 
ret  rac t  (ma i n 1 ine_s t a t es (SL,0,OS ,BO) ) . 


/*  Natural  language  output  */ 


wr  i  t  e 1 
wr  i  t  e  1 
wr  i  t  e  1 


st([],R)  :- 
st([X].R)  : 
st([X,Y],R) 


wr  i  tef act (X,R) . 
!,  wr  i t ef ac t (X.R) ,  write( 


and  '),  wr i tef act (Y.R) 


wri telist(L.R)  :-  wr i t e 1 i s t 2(L,R) . 

wri tel ist2( [X] ,R)  :- 

wr  i tel i s t2( [XIL] ,R)  :-  wr i t ef ac t (X.R) ,  wr  i t e ( '  , 

writefact(F, state)  :-  atom(F),  write(F).  write(' 

wr  i t ef ac t ( not (F) , s t a t e )  : -  atom(F),  !,  write(F), 

wri tefact(not (F) , state)  :-  F=..[P,X],  atom(X),  ! 

write(IX),  wri te( 'not  '),  write(P),  !. 
wri tefact(not (F) , state)  :-  F=..[P,X],  !,  wr  i t ef ac t (X)  .  i s_f orm(X.  IX)  . 


write('and  '),  wr  i t e f ac t (X.R) . 

)  ,  wri telist2(L,R) . 
i  s  t  rue  )  .  !  . 
write('  is  false').  !. 
write(X),  i  s_f  orm(X,  IX) 
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wr  1 
wr  i  t  e 

wr  i 
wr  i  t  e 

wr  i 
wr  i  t  e 

wr  i 
write 

wr  i 
wr  i  t  e 
write 
wr  i  t  e 

wr  i 
wr  i  t  e 

wr  i 
wr  i  t  e 

wr  i 
wr  i  t  e 

wr  i 
write 

wr  i 
wr  i  t  e 

wr  i 
write 
wr  i  t  e 
i  s_f  o 
i  s_f  o 
i  s  f  o 


e(IX),  write('not  '),  write(P).  !. 

act(not (F) . state)  :-  F=. . [P.X.Y] ,  !,  write(X),  wr  i t e ( *  not  '), 

e(P),  write('  '),  write(Y),  !. 

act(F. state)  :-  F=..[P.X],  atom(X),  !.  write(X),  i s_f orm(X, IX) . 

e( IX) .  wri te(P) ,  ! . 

act(F, state)  :-  F=..[P,X],  !,  wr  i t ef ac t (X,  s t a t e  )  ,  i s_f orm(X,  IX)  , 

e(  IX)  ,  wri  te(P) ,  ! . 

act(F, state)  :-  F=..[P,X,Y],  !,  write(X),  write('  *), 

e(P).  write('  '),  write(Y),  !. 

ac t (F.precond)  :-  atom(F),  write(F),  write('  must  be  true'),  !. 

ac t (not (F) .precond )  :-  atom(F),  !,  write(F),  wr  i t e (  '  must  be  false'),  ! 

act(not (F) .precond)  :-  F=..[P,X],  atom(X),  !,  write(X), 

e ( '  mu  s  t  not  be  ' ) ,  wr  i  t  e ( P ) ,  !  . 

act (not (F) .precond)  :-  F=..[P,X],  !,  wr  i t ef ac t (X,  s t a t e  )  , 

e('  must  not  be  '),  write(P),  !. 

act (not (F) .precond)  :-  F=..[P,X,Y],  !,  write(X),  write('  must  not  be  ') 

e(P).  write('  '),  write(Y).  !. 

act(F, precond)  :-  F=. . [P,X] ,  atom(X),  !,  write(X), 

e('  must  be  '),  write(P),  !. 

act (F.precond)  :-  F=..[P,X],  !,  wr  i t ef ac t (X,  s t a t e  )  , 

e('  must  be  '),  write(P),  !. 

act (F.precond)  :-  F=. . [P,X,Y] ,  write(X),  write('  must  be  ').  write(P). 

e( '  '  ) ,  wri  te(Y) .  !  . 

act(F.op)  :-  write(F),  !. 

act (F.R)  : -  wri te(F) . 
m(X, '  is  ')  :-  no t ( a t om(X)  )  ,  !. 
m(X.  '  are  ')  :-  name(X,NX).  1  as t (NX, 1 15 ) ,  !. 
rm(X,  '  is  '  )  . 


/*  The  original  means-ends  program  (used  for  "what  if"  reasoning)  */ 

once_means_ends (State ,Goa 1 ,Opl i  s  t ,Goa 1 s  t  a  t  e )  : - 
means_ends (State ,Goa 1  ,Opl i  s  t ,Goa 1 s  t  a  t  e ) , 
cache_s  tates(State ,Goa 1  ,Opl i  s  t .Goal  state),  !  . 

means_ends (State .Go a  1 ,Opl i  s  t .Go a  1 s  t  a t  e )  : - 

means_ends2( State .Go a  1 ,Opl i  s  t .Go a lstate,[]),  writedebug7. 

means_ends2(S t  a  t  e .Go a  1 ,Opl i  s  t ,Goa lstate.Stack)  :  - 

cached(State2 .Go a  1 2 ,Opl i  s  t .Go a  1 s  t  a t  e ) ,  check_pe  rmu  t  a  t  ion (Go a  1 .Go a  12 ) , 
check_pe  rmu t a t i on(St a t e ,St a t e2 ) ,  !,  wr i t edebug6(St ack) ,  !. 

means_ends2(S t  a  t  e ,Goa 1 ,Opl i  s  t ,Goa lstate.Stack)  :-  member ( [State .Go  a  1 ] .Stack) 
!,  wr  i t edebug4(S t ack) ,  fail. 

means_ends2(State .Goal , [ ] .State.Stack)  :-  di f f erence(Goal ,S t a t e , [ ] ) ,  !. 

means_ends2(St  a  t  e .Go a  1  ,Opl i  s  t ,Goa lstate.Stack)  :-  di  f f erence(Goal , S t  a  t  e ,D) , 
appl i  cabl e_op(D,Ope  rator),  precondit  ion (Ope  rator.Prelist), 
al l_achievable(St  ate ,Prel i  st ) ,  wri  tedebugl(D,Operator .Stack) , 
means_ends2(S  tate.Prelist.Preoplist.Prestate, [[State ,Goa 1 ] I S t  ack] ) , 
wri  tedebug2(Prestate .D,  Opera t or ,St  ack ) , 

get_deletepostcondi  t  i  on (Ope  rator, Prestate.Deletepostlist), 
de 1 e  t  e  i  t  ems  (Deletepostlist ,Prestate,Prestate2) , 
ge  t_addpos  tcondi  t  ion(Operator ,Prestate,Addpost 1 i  st ) , 
union(Addpostlist,Prestate2,Postlist), 

means_ends2(Post 1 ist .Goal .Postopl ist .Goalstate , [ [State, Go al ] IStack] ) . 
wr  i  t  e debug 3 (Goal  state ,Ope  rator, Stack) , 
append(Preoplist, [Opera  t  or  I Pos  t opl i  s  t ] ,Opl i  s  t ) . 
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mean  s_ends2(State ,Goa 1  ,Opl i  s  t  .Go a lstate.Stack) 
wri tedebug5(State,Goal ,St ack) ,  !,  fail. 


/*  Debugging  tools  */ 


wr i ledebugl(D.O,St ack)  :-  no t ( debug f 1 ag ) ,  !. 

wri  tedebugl(D.O,St  ack)  :-   1  eng  th(S  t  ack  ,Nnl  )  ,  N  is  Nnl+1  ,  wr  i  t  e( '»Ope  ra  t  or  ') 

write(O),  wr  i t e (  '  suggested  at  level  '),  write(N),  nl, 

write('to  achieve  difference  of  [*),  wr  i t e 1 i s t (D, s t a t e )  ,  wr  i t e (  '  ]  '  )  ,  nl,  !. 

wr i tedebug2(S,D.O, Stack)  :-  not (debugf 1 ag ) ,  !. 

wri  tedebug2(S,D,0, Stack)  :-  1  eng  t  h(S  t  ack  ,Nnl )  ,  N  is  Niil+1, 

wr  i  t  e( '»Opera  t  or  '),  write(O),  write('  applied  at  level  '),  write(N),  nl  , 
wri te(' to  reduce  difference  of  [*),  wr  i t e  1  i s t (D,  s t a t e  )  ,  write(']'),  nl, 
write('in  state  in  which  '),  writelist(S, state),  nl,  !. 

wri tedebug3(S.O, Stack)  :-  no t (debugf 1 ag) ,  !. 

wr i t edebug3(S ,O.St ack)  :-  1 eng t h (S t ack ,Nnl ) ,  N  is  Nnl+1,  wr  i t e ( ' »Leve 1  *), 
write(N),  write( '  terminated  at  state  in  which  '),  wr  i t e 1 i s t (S , s t a t e )  ,  nl,  ! 

wr  i t edebug4(S t ack )  :-  not (debugf 1 ag ) ,  !. 
wr  i t edebug4( S t ack  )  :- 

wr  i  t  e  (  "»»Reason  ing  found  a  potential  infinite  loop  at  level  '), 

length(St ack,Nnl )  ,  N  is  Nnl+1,  write(N),  nl,  !. 

wr i t edebug5(S t a t e ,Goa 1 ,S t ack )  :-  no t ( debugf 1 ag ) ,  !. 

wr  i  t  edebug5(S  t  a  t  e  ,Goa  1  ,S  t  ack  )  :-  wr  i  t  e( '»»Unsol  vabl  e  problem  at  level  '), 
length(St ack.Nnl)  ,  N  is  Nnl+1,  write(N),  nl,  write('for  state  '), 
wr  i t e 1 i s t (St  a t e  ,  s t a t e  )  ,  nl,  write('and  goal  *),  wr i t e 1 i s t (Goal , s t a t e ) ,  nl,  ! 

wr  i t edebug6(S t ack )  :-  not ( debugf 1 ag ) ,  !. 

wr  i  t  edebug6(S  t  ack)  :-  wr  i  t  e  ( '»»Previ  ous  1  y  computed  solution  used  at  level  ') 
length(Stack,Nnl) ,  N  is  Nnl+1,  write(N),  nl,  !. 

writedebug7  :-  not (debugf 1 ag  )  ,  !. 
writedebug7  :-  nl,  !. 

/*  Miscellaneous  utility  functions  */ 

delete_uncreatable( [ ] , [ ] ) . 

de 1 e t e_unc rea t abl e ( [XIL]  ,M)  :-  unc rea t abl e(X) ,  !,  de 1 e t e_unc rea t abl e (L,M) . 

de 1 e t e_unc rea t abl e( [XIL] , [XIM]  )  :-  de 1 e t e_uncrea t abl e(L,M)  . 

a  I l_ach ievabl e (S ,G)  :-  di f f e rence (G, S ,D) ,  no t (unach i evab 1 e_membe r (D) ) . 

unach i evabl e_member (D)  :-  backt racking_member (F,D) ,  unc rea t abl e(F) . 

unc rea t ab le(F)  :-  precondi t ion(O.L) ,  backt racki ng_membe r (F,L) , 
no t ( i  n_pos  tcondi  t  ion(F) ) . 

i n_pos t condi t i on( no t (F) )  :-  any_de 1 e t epos t condi t i on(O.DPL) .  membe r (F.DPL) . 
in_postcondi t ion(no) (F) )  :-  r andsubs t (O.RSL) ,  membe r ( [F,X,Y,Z] ,RSL ) . 
i n_pos t condi t ion(F)  :-  not (F=. . [not ,P] ) ,  any_addpos t cond i t i on(O.APL) , 

member (F,APL) . 
i n_pos t condi t i on(F)  :-  not (F=. . [not ,P] ) ,  r andsubs t (O.RSL ) , 

member([X,F,Y,Z] ,RSL) . 

any_de 1 e t epos t cond i t ion(O.L)  :-  de 1 e t epos t condi t i on(O.C,L) . 
any_de 1 e t epos t condi t ion(O.L)  :-  de 1 e t epos t condi t i on(O.L) . 
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any_addpos t cond i t i on (O.L)  :-  addpos t condi t i on (O.C.L) . 
any_addpos t cond i t i on (O.L)  :-  addpos t cond i t i on (O.L) . 

ge t_de 1 e t epos t condi t ion(O.S ,L)  :-  de 1 e t epos t cond i t i on (O.C.L) , 

fact  subset (C,S) ,  ! . 
ge t_de 1 e t epos t condi t ion(0,S ,L)  :-  de I e t epos t condi t i on (O.L) . 

ge t_addpos t condi t i on (O.S ,L)  :-  addpos t cond i t ion(O.C.L) ,  f ac t subse t (C,S ) ,  !. 
ge t_addpos t condi t i on (O, S ,L)  : -  addpos t condi t ion(O.L) . 

appl  i  cabl  e_op(D.O)  :-  subse  t  (D2  ,D)  .  recoirmended(D2  .O)  . 

di  f ference( [] .S.  []  )  . 

di f ference( [not (P) IG] ,S,G2)  :-  no t ( s i ngl  emembe r (P,S ) ) ,  !,  d i f f e rence(G,S ,G2 ) 
difference! [PIG] .S.G2)  :-  s ingl emember (P,S) ,  !,  di f f erence(G,S ,G2 ) . 
difference! [PIG] ,S. [PIG2] )  :-  di f f erence(G,S ,G2 ) . 

subset ( [ ] .L) . 

subse t ( [XIL] ,L2 )  :-  s i ngl emember (X.L2 ) ,  subse t (L.L2) . 

fact  subset! [] ,L) . 

f ac t subse t ( [not !P) IL] .L2)  :-  not ! s i ng 1 emember(P ,L2 ) ) ,  !,  f ac t subse t (L.L2 ) . 

fact  subset! [not!P) IL] ,L2)  :-  !,  fail. 

fact subse t![PIL],L2)  :-  s i ng 1 emembe r ! P ,L2 ) ,  factsubset!L,L2). 

member(X.L)  :-  s  ingl  emembe  r  !X,L)  . 

s i ng 1  emembe r (X. [XI L] )  :-  !. 

s  inglemember  (X.  [YIL]  )  :-  s  ingl  emembe  r  (X.L)  . 

append! [ ] .L.L) . 

append( [XIL] ,L2. [XIL3] )  :-  append(L,L2 .L3 ) . 

uni  on( [ ] .L.L) . 

union! [XIL1] .L2.L3)  :-  s ingl emembe r (X.L2 ) ,  !,  union(Ll ,L2 ,L3 ) . 

unionUXILlj  ,L2.  [XIL3])  :-  uni  on(Ll  ,L2  ,L3  )  . 

dele t ei  terns  (  [ ]  ,L,L) . 

deletei terns! [XIL] .L2.L3)  :-  de 1 e t e(X,L2 ,L4 ) ,  de le t ei t  ems !L,L4 ,L3 ) . 

delete(X.[]  .[]). 

delete(X.[XIL]  ,M)  :-  !.  de  1  e  t  e(X,L  .M)  . 

delete!X.[YIL]  .  [YIM]  )  :-  de  le  t  e  !X,L,M)  . 

check_pe  rmu t a t i on!L,M)  :-  subset(L.M),  subset!M,L),  !. 

subsequence ![] .L)  :-  !. 

subsequence! [XIL] , [XIM]  )  :-  !,  subsequence(L.M) . 

subsequence (L.  [XIM]  )  :-  subsequence !L  ,M)  . 


pe  rmu  t  emembe  r  !X,  [XIL]  ) 
pe  rmu  t  emembe  r  (X,  [YIL]  ) 
pe  rmu  t  emembe  r  (X,  [Yl  L]  ) 


t 


subset(X.Y),  subset(Y.X),  !. 
pe  rmu  t  emembe  r  (X.L)  . 


last([X] ,X) . 

last([XIL] .Y)  :-  last(L.Y). 

e 1 imdups ![].[])• 

el  imdups  (  [XIL]  ,M)  :-  s  i  ng  1  emembe  r  (X.L)  .  !,  e  1  imdups  (L.M)  . 

el  imdups!  [XIL]  ,  [XIM]  )  :-  e  1  imdups!L.M)  . 
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uniqueassert (Q)  :-  Q=..[PIL],  length(L.N),  abolish(P.N),  asserta(Q) 

backt  rack  ing_membe  r (X, [XI L] ) . 

back t rack ing_membe r (X, [YIL] )  :-  backt racki ng_membe r (X,L) . 
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/•  */ 

/*    Module  Name:  TASKS  */ 

/•  */ 

/*    Author:  Capt.Taewoo  Kim,  ROKA     */ 
I*  ♦  / 

set_up  :-  r  econsu  I  t  (  t  ops20-rrm)  , 

reconsul t ( tasks) , 

reconsult( tutor) , 

s  ave ( saveds  t  a  t  e  )  , 

go- 
go  :-   initialize, 
greet  i  ng , 
in  t  roduc  t  i  on , 
i  ssue_t  ask , 
go. 

initialize  :-  a s se r t a ( 1  eve  1 ( t op ) ) , 

asserta( last_sent _ms g ( 7 7 ) )  , 
asserta(current  _ms  g (12)), 
asserta(current_task(l)) . 

greeting  :-  n 1 ,wr i t e ( 'Tu t or :  Hi,  what  is  your  name?   ' ) , ni ce re ad(Name ) , 
a s se r t a( u se r (Name ) ) ,  nl, 
wr i t e ( 'Tu t or :  Nice  to  meet  you,  '  )  , nwr  i t e (Name ) ,wr i t e( '  .  ' ) , n 1 

introduction  :-  int roduc t ion ( I ) ,  nl,  wr  i t e (  I  )  ,  nl. 

i n t roduc t ion( '      Welcome  to  TOPS20  Mvi  Se 1 f -  learning  course. 

Type  "?"  or  "help"  for  the  available  corrmands 
and  "7  task"  for  the  current  task.'). 

issue_task  :-  bagof (X,P"precondi t ion(X.P) ,XL) ,  uni queas ser t ( op_l i s t (XL) ) , 
t ask(  1  )  . 

t ask(N)  : -  nl.nl. 

ret  ract (current_t  ask(CT)  ),  asserta(current_task(N)), 

q(N.Q) ,  wri  te(Q)  ,  nl.nl, 

taskl(N)  . 

NN  i  s  N  +  1 ,  task(NN)  . 

change! eve  1 (NL)     :-    re t rac t ( 1  eve  1 (OL) ) ,    as se r t a ( 1  eve  1 (NL) ) . 

top_pronipt     :-    nl,    write('@    '). 
rrm_prompt     :-    nl,    write('Mvt>    '). 
send_prompt     :-    nl,    write('S>    '). 
read_prompt     :-    nl.    write('R>    '). 

/*    Basic    tasks.     */ 

q(l, 'Tutor:  We  are  now  at  the  top  level  mode. 

Your  fisrt  exercise  is  to  invoke  the  MV1  '  )  . 
taskl(l)  :-  tutor(  [  level  (  top)  ],[  level  (rrm)  ])  . 

q(2, 'Tutor:  Good.  Now,  we  are  at  the  rvM  mode . 

Lets  browse  the  headers  of  the  current  message  in  the  mail  box.'). 
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taskl(2)     :-     t  u  t  or  (  [  leve  1  (mm)  ]  ,  [  i  ssued_coirmand(inri,  '  heade  rs    current')]). 

q(3, 'Tutor  :  O.K. 

Lets  browse  the  content  of  the  current  message.'). 
taskl(3)  :-  cur  ten t_msg(K)  , t u t or ( [ leve 1 (mm) ] , [ seen(K)  ] ) . 

q(4, 'Tutor:  Now,  go  back  to  the  top  level  again.'). 
taskl(4)  :-  t u t or ( [ leve 1 (mm)  ] , [ 1  eve  1 ( t op ) ]  )  . 

q(5, 'Tutor:  All  right.  We  came  back  to  the  TOP  level. 

Now,  lets  browse  all  the  headers  of  messages  in  the  mail  box.'). 
taskl(5)  :-  t u t or ( [ level ( t op ) ] , [ 1  eve  1  (mm) ] ) . 

q(6,  "  ). 

taskl(6)  :-  tut  or  ([  leve  1  (mm)  ],[  i  s  sued_corrmand(mm,  '  headers  all')]). 

q(7, 'Tutor:  Now,  list  all  the  headers  of  flagged  messages  in  the  mail  box.') 
taskl(7)  :-  t  u  t  or  ([  leve  1  (mm)  ],[  i  ssued_coirmand(mm,  '  header  s  flag')]). 

q(8, 'Tutor:  Good.  Now,  set  the  flag  on  the   message  number  12.'). 
taskl(8)  :-  t u t or ( [ leve 1 (mm) ] , [ i ssued_conmand(mm, f 1 ag ) ] ) . 

q(9, 'Tutor:  O.K.  Now,  list  all  the  headers  of  flagged  messages  again.'). 
taskl(9)  :  -  t  ut  or  ([  leve  1  (mm)  ],[  i  s  sued_corrmand(nm,  '  heade  rs  flag')]). 

q(10, 'Tutor:  List  all  the  headers  of  the  unseen  messages  in  (he  mail  box.'). 
taskl(lO)  :-  t  u  t  or  ([  leve  1  (mm)  ],[  i  s  sued_coirmand(rrm,  '  heade  rs  unseen')]). 

q(  1 1 .  'Tutor :  Al 1  right  . 

Now,  lets  browse  the  message  number  10.'). 
taskl(ll)  :-  tutor( [ level(mm)] , [seen( 10)] ) . 

q(12, 'Tutor:  Now,  jump  to  the  message  number  7  in  the  mail  box.'). 
taskl(12)  :-  t u t or ( [ leve 1  (mm) ] ,  [moved(7 ) ] )  . 

q( 13, 'Tutor :  Al 1  right . 

Now,  lets  browse  the  current  message  in  the  mail  box  again.'). 
taskl(13)  :-  cur ren t_msg(K) ,  t u t or ( [ 1  eve  1 (mm) ] ,  [seen(K)]). 

q( 14, "Tutor :  Good . 

Now,  browse  the  next  message  in  the  mail  box.'). 
taskl(14)  :-  t  u  t  or  ([  leve  1  (mm)  ],[  i  s  sued_corrmand(mm,  next  )])  . 

q( 1 5 ,  'Tu  t or :  Now,  browse  the  prev  i  ous  mes  sage  in  the  mai 1  box .  ' ) . 
taskl(15)  :-  tutor  (  I  level  (mm)  ],[  i  ssued_corrmand(nm, previous  )])  . 

q(16,  'Tutor:  Good.  Now,  send  a  message  to  J<@SRI -KL.  '  )  . 
taskl(16)  :-  tutor ([ level (mm)  ], [i s sued_conmand( to, '3@SRI-KL' ) , 

i  s  sued_conmand( read y_to_ send, send) ] ) . 

q(17, 'Tutor:  Exellent. 

Now,  send  a  message  to  the  address  in  message  6'). 
taskl(17)  :-  t u t or ( [ leve 1 (mm) ] , 
[seen(6),is  sued_coirmand(  t  o  ,A)  .  i  ssued_corrmand(  ready_to_  send,  send)]). 

/ *   He  1 p  me  s  s  a  g  e  * / 

re spond_he lp( Leve 1  )  :-  nl, 
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wr  i  t  e  (  '  Following  are  the  possible  corrmands  at  ') 
wr  i t e (Leve 1 ) ,  write('  level:  '),  nl.nl, 
1  eve  l_corrmands  (Leve  1  )  . 


1  eve  l_corrmands  (  t  op)  : 
wri  te( ' 
wr  i  t  e  (  ' 
nl  . 

1  eve  l_corrmands  (mm)  :- 
wr  i  t  e( '       answe  r 


rrm  '  )  ,  nl  , 
qu  i  t .  ' ) ,  n 1 


wr  i  t  e( 
wr  i  t  e ( 
wr  i  t  e( 
wr  i  t  e ( 
wr  i  t  e( 
wr  i  t  e( 
nl  . 


copy 

delete 

exit 

expunge 

flag 

f  orwa  rd 


headers 

all 

list 

send 

'). 

nl 

header  s 

cur  ren t 

1 ogou  t 

type 

'), 

nl 

header  s 

de 1 e  t e 

move 

unde 1 e  t e 

'  )  , 

nl 

heade  r  s 

flag 

next 

unf 1 ag 

'), 

nl 

header  s 

unseen 

previous 

'), 

nl 

he  Ip 

qu  i  t 

'), 

nl 

jump 

read 

*), 

nl 

level  _corrmands  (  read) 
wr  i  t  e(  ' 
wr  i  t  e( ' 
wr  i  t  e(  ' 
wr  i  t  e( ' 
nl. 

level  _corrmands  (  send  ) 
wr  i  t  e  (  ' 
wr  i  t  e ( ' 
nl. 


copy 
de 1 e  t  e 
flag 
f orwa  rd 


d  i  splay 
erase 


help 
list 
move 
next 


qu  i  t 

reply 
send 
unde 1 e  t  e 


unf 1 ag 


).  nl 
),  nl 
),  nl 
),  nl 


headers 
qui  t 


send   ' ) , 
type   '  )  , 


nl 
nl 


/*  Functions  of  each  cortmand  */ 

gi ve_de f (mm,  qui t )  :-  wr  i t e (  '  This  is  the  function  of  command  "quit".') 

/*  Operator  definitions  for  means-ends  analysis  */ 

/*  Recommended  operators  for  required  goals.  */ 

recorrmended(  [  i  s  sued_coirmand(X,Y)  ]  ,  corrmand(X,Y) )  . 

recorrmended(  [  1  eve  1  (  t  op)  ]  ,  corrmand(mm,X)  )  :-  member  (X,  [qu  i  t  ,q]  )  . 

r econmended( [ level (mm) ] , command ( t  op  ,nm) ) . 

recorrmended(  [  1  eve  1  (  to  )  ]  .command (mm,  send  )  )  . 

recormiended(  [level(cc)]  ,  command  (  t  o  ,X)  )  . 

recorrmended(  [level  (subject  )]  ,  command (  cc  ,X) )  . 

reconmended( [ level (me  ssage ) ] , command ( subject.Y)). 

reconmended( [ level ( ready_to_send)] , command  (me  ssage ,X) ) . 

recorrmended(  [moved(K)  ]  ,  command  (nni.C)  )  :-  not(var(K)),  name('jump  '  ,A1  ) 
name(K,A2),  append(Al  ,A2  ,AC)  ,  name(C,AC). 

recorrmended(  [  seen(K)  ]  ,cornmand(mm.  type  )  )  :-  not(var(K)),  cur  ren  t  _msg(K) 
recorrmended(  [  seen(K)  ]  ,  comma  nd(mm.C)  )  :-  not(var(K)),  name('type  '  .Al  )  , 
name(K,A2),  append (Al ,A2 , AC) ,  name (C.AC). 

/*  Preconditions  for  each  operator.  */ 
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precondi  t  ion(  coimiand  (L  ,X)  ,  [level(L)]). 

/*  De 1 e t epos t condi t ions  and  Addpos t condi t i ons  for  each  operators.  */ 

de  1  e  t  epos  tcondi  t  i  on(corrmand(rrm.Y)  ,  f  ]  )  :-   ordcorrmands  (O)  ,  member  (Y.O)  . 


addpostcondi  t  ion 
ordcommands  (O 

de  1  e  t  epos  tcondi  t 
addpostcondi  t  ion 


1  ong_j  ump_coirmand(C,K) 


de  1  e  t  epos  t  condi  t 
addpostcondi  t  ion 


1  ong_t  ype_corrmand(C,K) 


de  1  e  t  epos  t cond  i  t 
addpostcondi  t  ion 
: -  cur  ren t _msg 
de 1 e  t  epos  t  condi  t 
addpostcondi  t  ion 

de 1 e  t  epos  t  condi  t 
addpostcondi  t  ion 

de 1 e  t  epos  t cond  i  t 
addpostcondi  t  ion 

de 1 e  t  epos  t  cond  i  t 
addpostcondi  t  ion 

de 1 e  t  epos  t  cond  i  t 
membe  r (X, [ to, 
addpostcondi  t  ion 
addpostcondi  t  ion 
addpostcondi  t  ion 
addpostcondi  t  ion 


addpostcondi  t  ion 


addpostcondi  t  ion 


comma nd(irm,Y)  ,  [  i  s  sued_c  onman  d(X,Y)  ]  )     : 
,    member  (Y.O)  . 

on(corrmand(irm,Y)  ,  [  ]  )     :-      not(var(Y)),     long_j  ump_corrmand(Y,Z) 
corrmand(mm,C)  ,  [moved(K)  ,  i  s  sued_coirmand(rrm,C)  ]  ) 


on(conrnand(rrm,Y)  ,  f  1  )     :-       not(var(Y)),     long_  t  ype_corrmand(Y,Z)  . 
corrmand(mm,C)  ,[seen(K),is  sued_corrmand(mm,C)  J  ) 


on(coirmand(irm,  t  ype  )  ,  [  ]  )  . 

c onman d (mm,  type)  ,  [seen (K)  ,  i  ssued_corrmand(mm,  type)  ]  ) 

K). 

on  ( command ( t  op  ,nm) ,[Ievel(top)]). 

conmand(  top  ,nm)  ,  [  i  s  sued_coirmand(  top  ,mm)  ,  level  (mm)  ]  )  . 

on(conrnand(nm,  qu  i  t  )  ,  [  1  eve  1  (mm)  ]  )  . 

conmand(nm,  qu  i  t  )  ,  [  i  s  sued_corrmand(rrm,  qui  t  ),  level  (  top)  ])  . 

on(corrmand(rrm,  q  )  ,  [  1  eve  1  (mm)  ] )  . 

corrmand(mm,  q  )  ,  [  i  s  sued_cormiand(mm,  qu  i  t  )  ,  leve  1  (  t  op  )  ]  )  . 

on  ( comma  nd(rrm,  send),  [level  (mm)  ]  )  . 

command (mm,  send ) , ( i  s  s ued_c onman d (mm, send) , level ( to) ]) . 

o  n ( c  onma  nd(X,Y),[level(X)])     :  - 

c  ,  subj  ec  t  ,mes  sage , ready_to_send] ) . 

comnand(  to  ,X)  ,[  level  (cc)  ,  i  s  sued_corrmand(  t  o  ,X)  ]  )  . 

conmand(cc ,X)  , [leve 1( subject ), is sued_conmand( cc  ,X) ] ) . 

comma nd( subject,X),[ level  (mes  sage ) , i  s  sued_command( subject, X)]) 

c onman d (me s  sage  ,X)  , 


[level(ready_to_send) ,is  sued_ command (me  ssage ,X) ] ) 


c onman d( ready_to_send, send)  , 


[level  (rrm)  ,  i  s  sued_c  onman  d(  ready_to_send,  send)  ]  ) 


conmand( ready_t o_send , qu  i  t ) , 


[is  sued_conmand( ready_to_ send, qui  t ) , level ( ready_to_send) ] ) . 

o rdc  onman ds ( [ answe  r ,copy,delete,exi  t  .expunge , flag, f orwa  rd,  'headers    all', 
'headers    cur r en t ' , ' heade r s    de le t e ' , ' heade r s    f 1 ag ',' header s    unseen', 
help,  list, logout  ,move .next  .previous .undelete, unflagj  )  . 

long_j  ump_cormiand(C,K)     :-    not(var(C)),    name(C.AC),    name('jump       ,AT)  , 
append(AT.AK.AC)  ,    name(K.AK),    number(K). 

long_t  ype_corrmand(C,K)     :-    not(var(C)),    name(C.AC),    name('type    '  ,AT)  , 
append(AT,AK,AC)  ,    name(K,AK),    number(K). 

1 ong_he lp_conmand(C,HC)     :-    not(var(C)),    name(C.AC),    name('help    '  ,AT)  , 
append(AT,AK,AC)  ,    name(HC.AK). 

nopre  f  (0.  corrmand(nm,  type  )  )  :-    0=  ..  [command  ,mm,C]  ,     long_t  ypeconmand(C.K)  . 

cur  ren  t_msg(K)  . 

nopre  f(0,  conmand(nm,  j  ump)  )  :-    0=.  .  [command. mm, C]  ,     1  ong_j  ump_coirmand(O.K)  , 

cur  ren  t_msg(K) . 
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nopre  f ( q , qu  i  t  )  . 
nopre  f ( n ,nex t ) . 
nopref(p.previous)  . 
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/*  */ 

/*   Module  Name:  CORRECT_ERROR        */ 
/*  */ 

/*    Author:  Capt.Taewoo  Kim,  ROKA     */ 

/*  */ 

/**************************************/ 

/*    Check    against     the    possible    error     lists.     */ 

check_er ror (Leve 1  .Nconmand ,N0)     :-    Nconmand    =..     [Pred ,L, Command] , 

not(val id(Level .Conmand) ) , 
check_errorl(Level  ,  Conmand  ,NNO)  , 
call(Level .NNO.NO) . 

call  (Level  .MO, NO)     :  -    NO  =  .  .     [conmand  , Leve  1  ,NNO]  . 

/*    checks    error     for    short     type    errors    */ 

check_errorl(Level , S  conmand .Nconmand )     :-     type_error_list(Level , Nconmand .List) 

membe  r  (  Scorrmand  ,Li  s  t  )  , 

ask_e  rror(Level  .Nconmand  )  . 

t  ype_er  ror_list(Level  ,q,[a,s,w,l,2]). 
type_error_list(top  .mm, [nn , j  j  ,mj  ,mn ,  jm,  nm] ) . 

/*    checks    error     for    one    mistype    in    the    long    conmand    */ 

check_errorl(Level  .Stri  ng_corrmand  ,  Cor  rec  t_cortmand  )     :  - 

name  (Stri  ng_conmand  , Li  s  t_conmand  )  , 

1 eng t h(Li s t_conmand ,Leng t h ) ,    Length    >    2, 

val id(Level ,Any_val id_conmand ) , 

name(Any_val i  d_conmand ,Va 1 i  d lis t_conmand ) , 

one_di  fference(Li  s  t_conmand ,Va 1 i  d_l i  s  t_conmand) , 
name  (Cor  rec  t_corrmand  ,Va  1  i  d_l  i  s  t_conmand)  , 
ask_er  ror(Level .Correc  t_conmand) . 

/*    checks    transposing    error    in    conmand    */ 

check_errorl(Level .Stri  ng_ conmand ,Transposed_st  ri  ng_conmand)     : - 

name(S  t  r  ing_conmand  .Lis  t_corrmand  )  , 
do_t  ranspose(Lis  t_conmand  ,Transposed_corrmand  )  . 
name(Transposed_s  t  r  ing_conmand ,Transposed_conmand ) , 
val id(Level , Trans posed_st ri  ng_conmand ) , 
ask_error(Level ,Transposed_str  ing_conmand) . 

do_t r anspose(L ,TL)     :-     t r anspose(L,TL) . 

transpose( [X.YIL] , [Y.XIL]) . 

t ranspose ( [XI L] , [XIL2 ] )     :-     t ranspose(L,L2) . 

check_er  ror  1  (Leve  1  .Scorrmand  .Nconmand  )     :-    name(Sconmand  .Aconmand  )  , 

type_error_listl(Level .Nconmand , Li  s  1 1 ) , 
member  (Aconmand  , Li  s  t  1 )  , 

ask_er ror (Leve 1 .Nconmand ) . 

t ypeer ror_l i s t 1 (Leve 1 .Command .Error )     :-    e (Conmand ,Er ror ) . 

e( t race. [ [X.  114,97,99. 101]  ,[116. X.97,99. 101], [116, 114, X.99. 101]]). 

/*    checks    error    for    level    errors    */ 

check_errorl(Level  .Scorrmand  .Nconmand  )     :-     level_error_list(Level  .Nconmand  )  , 

correct_level_error(Level .Nconmand ) . 

/*   Correct    the    errors    in  misconception    of    level    */ 
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cor rec t_Ieve l_er ror ( top ,E)  :-  n 1  ,wr  i t e ( 'Ooops !  You  can  issue  a  "'), 

write(E).    wri  te(  '"    cormiand    only    in    the    "rvM"    level.) 

nl.nl,  write('Try  again.  '),nl. 
/* 

NO  =  .  .     [corrmand  ,  t  op  ,E]  , 

check_wi  th_student(0,S,D,NO) , ! . 
•/ 

cor  rec  t_leve  l_e  r  ror  (rrm.E)    :-    n  1  ,wj  i  t  e  (  'Ooops  !   You    can    issue    a    "'). 

write(E),    wr  i  t  e ( '"    conmand    only    in    the    "TOP"    level.') 

nl.nl,    write('Try    again. '),nl. 
/* 

NO  =  .  .     [conmand  .rrm.E]  , 

check_wi  t h_s t uden t (O.S ,D,NO) , ! . 
*/ 

/*  Ask  the  user  if  he/she  meant  the  valid  conmnand.  */ 

ask_er  ror  (Leve  1  .Cor  rec  t_corrmand  )  :-  nl. 

wr  i t e ( 'Ooops !  You  mean  "'),  wr i t e (Cor rec t _conmand) ,  wr i t e ( ' " ?   ') 
ni ceread(Answe r ) ,  nl, 
!.  name  (Ye s_or_no .Answer ) , 
NC  =.  .  [conmand  .Leve  1  .Correc  t_corrmand  ]  , 
correct_error(Yes_or_no,Level ,NC) . 

/*  Correct  the  error  if  the  answer  is  "yes"  */ 

cor rec t_e r ror (A, Leve 1 ,NC)  :-  af f i nna t i ve(A) ,  nl,  ac t ion (Level ,NC)  ,  !. 

t ry_aga in(Leve 1 ,NC)  :-  ,  !. 

/*  Correct  the  error  if  the  answer  is  "no"  */ 
cor rec t_er ror (A, Leve 1 ,NC)  :-  nega t i ve (A)  , n 1 , 

!,  wri  te( 'Please,  tvPe  tne  correct  conmand .'), nl . 

/*  If  the  answer  is  neither  "yes"  nor  "no"  */ 

cor rec t_e r ror (A.Leve 1  ,NC)  :-  nl,  write('Please,  answer  in  "yes"  or  "no".  ') 

nl,  wri  te( '==>  '),  niceread(B),  name(S.B), 

correct_error(S.Level ,NC) . 

/ *    valid   c orrma n d s    in   TOP    level    * / 

va  1  i  d(  t  op  ,rrm)  . 
val id( top.q) . 

/*  valid  corrmands  in  rVM    level  */ 

va  1  i  d(rrm,  answer  )  . 

val  id(rrm.  copy  )  . 

va  1  i  d(rrm,  delete)  . 

va  1  i  d(rrm,  exit). 

va  1  i  d(rrm,  expunge  )  . 

va  1  i  d(rrm,  flag). 

va  1  i  d(nm,  f  orwa  rd)  . 

va  1  i  d(rrm,  '  heade  rs  all"). 

val id (mn, 'header i  current'). 

va  I  i  d(rrm,  '  heade  r  s  delete'). 

va  1  i  d(rrm,  '  heade  r  s  flag'). 

va  1  i  d(rrm,  '  heade  r  s  unseen'). 
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valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 

/*  va 

valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 
valid 

/*  va 

valid 
valid 
valid 
valid 
valid 
valid 
valid 

1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
level 
1  eve ! 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 
1  eve 


mm ,  h  e  1  p )  . 
mm , j  ump ) . 
rmi  .list). 
mm, logout ) . 
mm, move )  . 
mm .next ) . 
mm.prev  ious )  . 
mm, qui  t ) . 
mm ,  q )  . 
mm, read) . 
mm, send)  . 
mm. type ) . 
mm, unde 1 e  t  e )  . 
mm.unf lag). 

id  commands  in  READ  mode  */ 

r ead , copy ) . 
r ead . de 1 e  t  e  )  . 
read , f 1 ag  )  . 
r  e  a  d  ,  f  o  rwa  r  d  )  . 
r ead , he lp) . 
read  .  1 i  s  t  )  . 
read ,move  )  . 
read , nex  t  )  . 
read , qu  i  t  )  . 
read , q)  . 
read .reply), 
read , send  )  . 
read , unde 1 e  t  e  )  . 
read , unf 1 ag  )  . 

id    corrmands    in    SEND  mode    */ 


send , di  sp 
send  .eras 
send  ,  head 
send .quit 
send , q ) . 
send .send 
send , t  ype 


_e  r  ror 
.error, 
.error, 
.error, 
.error, 
.error, 
.error, 
.error, 
.error. 

error, 
.error, 
.error. 
_e  r  ror. 
_er  ror. 
.error, 
.error, 
.error 

error 


I  is 
lis 

.lis 
1  is 

.lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 
lis 


ay) 

)• 

rs) 


all'  )  . 
answer 


( t  op , answer ) . 

( t op. copy ) . 

(t op, delete). 

( t  op , exi  t ) . 

( t  op , expunge ) 

( top, flag) . 

( t op , f orwa  rd) 

( t  op , ' headers 

( t  op , ' header  s 

( top ,' header s  delete') 

(top, 'headers  flag'). 

(top, 'headers  unseen') 

( t  op ,he lp) . 

( t  op , j  ump )  . 

(  t  op , 1 i  s  t  )  . 

( t  op .next  )  . 

(  t  op .previ  ous  )  . 

( t  op , read)  . 
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level _error_list(t  op, send). 
level_error_l i  st ( I  op. type ) . 
level_error_l ist(top,undelete) 
level_error_l  i  st  (nm,nm)  . 


miat  1  v  e 


aff 

af  f  i  rnia  t  i  ve 
rma  t  i  ve 
rma  t  i  ve 
rma  t  i  ve 
rma  t  i  ve 
rma  t  i  ve 
rma  t  i  ve 


aff 
aff 
aff 
aff 
aff 
aff 
affi  rmat  ive 


(yes  )  . 
(yep), 
(yap) . 
(ya)  . 
(ye)  . 

(ya) . 
(y>- 

(right ) 
(ok  )  . 


negat  ive(nn)  . 
nega  t  i  ve (n )  . 
negat  i  ve ( nop ) . 
negat  i  ve ( neve  r ) . 

member(X, [XIL] ) . 

menibe  r  (X,  [YILJ  )     :-   member(X.L). 

convert_string_t  o_ASCI I(List,Alist)     :-    conl(List,Tlist),reverse(Tlist,Alist) 

conl( [],[]). 

conl([XIL].Alist)  : -  name  (X,  As  c  ii),append(Ascii,Alist,Na list), conl(L,Na  list) 

one_dif ference( [XIL] ,  [YIL]) . 

one_di f ference( [XIL1 ] , [XIL2] )  :-  one_di f f erence(Ll ,L2 ) . 
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